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LE BASIC ET SES FICHIERS 


AVERTISSENENT 


Cet ouvrage est destiné aux informaticiens individuels qui 
souhaitent développer sur leur P.S.I. des programmes mettant 
en veuvre des fichiers sur disquette ou sur disque. 


Devant la multiplicité des BASIC et des Systèmes d'Exploita- 
tion Disque, il a fallu faire un choix que nous avons voulu le 
moins restrictif possible. Nous avons retenu le Basic 
Microsoft dans sa dernière version : la version 5. fonctionnant 
sous système CP/M. 


Ce livre s'adresse donc, en priorité, aux utilisateurs de 
P.S.I. dotés d'un microprocesseur Z-80. Cependant, ceci n'est 
pas totalement restrictif puisque, par exemple, le BASIC du Xl 
de la Société Occitane d'Electronique, dont le microprocesseur 
est un 6800, est, à quelques différences près, celui décrit 
dans cet ouvrage. 


A moment où ce livre est mis sous presse, on peut citer, 
parmi les P.S.I. directement concernés : TRS 80 (avec quelques 
restrictions signalées) ; Zenith (Heathkit) Z8, Z89 ; LX500 
avec S.E.D. SX/80 ; Occitane X1 ; North Star ; Cromenco ; 

Altos ; Sanco ; Vector ; Micral 80 ; PCC 2000 ; Kontron PSI 80; 
ISTC 5000 option CP/M ; DTC Microfile ; CB 7900 ; Industrial 
Micro System ; ... 


Jacques BOISGONTIER a enseigné l'informatique industrielle, 


la téléinformatique et le Basic à la Régie Nationale des 
Usines Renault. 


Actuellement, il se consacre à l'automatisation de bancs 


d'essats. 
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PRESENTATION 


"Le Basic et ses fichiers" s'adresse, en principe, à des 
lecteurs déjà familiarisés avec le Basic ; toutefois, un rappel 
des notions fondamentales du langage est à la disposition des 
néophytes en Annexe I. 


Nous pensons que de nombreux adeptes du Basic pourront, 
également, trouver un intérêt à la lecture de ces rappels. 


L'ouvrage se compose de trois parties : 

La première associe à la description du langage Basic 
Microsof 5 des exemples d'utilisation. Pour tirer le meilleur 
parti de cet ouvrage sur son propre matériel, le lecteur 
pensera à rapprocher cette description du manuel de référence 
de son P.S.I. afin de détecter les différences éventuelles. 


La deuxième partie s'intéresse aux fichiers et à leurs 
instructions spécifiques avec, comme en première partie, des 
exemples spécifiques de fichiers à accès direct et à accès 
séquentiel sur disque. 


La troisième partie est entièrement consacrée à l'exposé de 
méthodes pratiques d'utilisation des fichiers depuis l'accès 
indexé jusqu'aux bases de données. 


Enfin, deux annexes techniques : Messages d'erreurs et Table 
des Codes ASCII, ainsi qu'un index alphabétique, complètent 
cet ouvrage. 


De façon à éviter le maximum d'erreurs de transcription, les 
listings de programmes ont été directement photographiés. Pour 
permettre une meilleure lisibilité de ceux-ci, les libellés 
entre guillemets ont été écrits en minuscule, ainsi seules les 
instructions, noms de variables et de chaînes ... sont en 
lettres majuscules. Mais, compte tenu, de l'imprimante utilisée 
les accents et cédilles ont disparu ; nous prions le lecteur 
de bien vouloir nous excuser si quelques corrections manuelles 
ont été omises. 
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lère Partie 


Le BASIC Microsoft 
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Ecriture des programmes 


Les numéros de ligne autorisés vont de 1 à 65529. Les 
lignes de programme peuvent être entrées dans un ordre 
quelconque. 


Chaque ligne de programme ne doit pas excéder 255 caractères. 


Le caractère "." permet dans une commande (LIST e.g.) de 
référencer la ligne courante. 


"?' est équivalent à PRINT 


Le caractère LINE-FEED permet d'écrire une même ligne de 
programme sur plusieurs lignes physiques. 


Tout ce qui suit REM ou ' sur une ligne de programme est 
considéré comme commentaire. 


Plusieurs instructions sur la même ligne sont séparées par 
LU LU 


Dès qu'une erreur de syntaxe est découverte dans une ligne 
pendant l'exécution d'un programme, le système BASIC affiche 
le N° de cette ligne et passe automatiquement en mode "EDIT': 


10 BONJOUR 
RUN 


SYNTAX ERROR IN 10 
10 


L'utilisateur peut alors modifier la ligne. Mais s'il veut 
d'abord visualiser les valeurs des variables (une modification 
de ligne les remet à zéro), il frappe contrôle Q. 


Un retour chariot permet également de quitter le mode 
"EDIT'. Mais dans ce cas les variables sont remises à zéro. 


Caractères de contrôle 


contrôle-A : Positionne en mode EDIT sur la ligne courante. 
contrôle-C : Interrompt l'exécution du programme en cours. 
contrôle-G Sonnerie. 

contrôle-H Supprime le caractère frappe. 


contrôle-I Tabulation (de 8 en 8). 

contrôle-0 Suspend l'édition du programme pendant que le 
programme continue de s'exécuter. Un second 
contrôle-O réactive l'édition. 

contrôle-R : Imprime la ligne courante. 

contrôle-S : Suspend l'exécution du programme. 

contrôle-Q : Réactive l'exécution suspendue. 

contrôle-U : Annule la ligne courante. 


EDITEUR DE PROGRAMME (MICROSOFT 5.) 


Une ligne de programme peut être entièrement REECRITE. 


Lors de l'introduction d'une ligne de programme, un caractère 
invalide peut être effacé par : 


Contrôle H ou RUBOUT 
Une ligne en cours d'introduction est entièrement effacée par : 
Contrôle U 
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La commande "EDIT N° ligne' permet de modifier une ligne 


déjà introduite 
Ex : EDIT 100 


Déplacement du curseur 


Insertion de texte : 


Insertion en fin de 
ligne : 


Suppression de texte 


Recherche de texte : 


Remplacement de texte 


Fin du mode EDIT 


La frappe d'espaces déplace 
le curseur à DROITE 
"xESPACE' déplace le curseur 
de x positions à droite 


Déplace le curseur à GAUCHE 
"XRUBOUT' déplace de x 
positions à gauche 


Frapper I puis le texte à 
INSERER à la position 
courante 

Pour finir l'insertion faire 
ESCAPE puis continuer à 
déplacer le curseur ou faire 
RETOUR CHARIOT pour terminer 
l'édition de la ligne 


Positionne le curseur à la 
fin de la ligne puis met en 
mode insertion 


La frappe de D supprime un 
caractère 

La frappe de xD provoque la 
suppression de x caractères 


Supprime tous les caractères 
à DROITE de la position 
courante puis se positionne 
en mode insertion. 


‘"Scaractère cherché' posi- 
tionne le curseur sur la 
première occurence du carac- 
tère cherché 

‘iScaractère cherché' posi- 
tionne le curseur sur la 
ième occurence 

‘iKçaractère cherché' posi- 
tionné sur la ième occurrence 
du caractère cherché mais 
supprime tous les caractères 
avant la position atteinte 


‘Ccaractère' change le carac- 
tère suivant en ‘caractère 
‘iCchaîne' change i caractè- 
res en chaîne" 

Après avoir frappé ces i 
caractères il y a retour en 
mode EDIT 


La frappe de Retour chariot 
provoque l'impression du 
reste de la ligne 

La sauvegarde des modifica- 
tions puis la fin du mode 
EDIT 


Même résultat qu'avec RC 
mais il n'y a pas impression 
du reste de la ligne 


LE BASIC ET SES FICHIERS 


Q Provoque la sortie du mode 
(Cancel EDIT mais sans sauvegarde 
and des modifications 

Quit) 

L Cette sous commande liste le 


(List) reste de la ligne puis repo- 
sitionne en début de ligne 


A Annule les modifications et 
(Annule) repositionne en début de 
ligne. 


COMMANDES BASIC MICROSOFT 5 


Ces commandes sont acceptées après affichage de OK (mode 
commande BASIC). Elles peuvent aussi être écrites comme ins- 
tructions dans un programme. 


AUTO n° ligne départ, incrément : génère un n° de ligne après 
chaque RC. Ce mode se termine par Contrôle C. 


AUTO 100 positionne à 100 et incrémente de 10 en 10 
AUTO 100,5 positionne à 100 et incrémente de 5 en 5 


CLEAR ,adresse mémoire maxi,espace pour les chaînes : efface 
toutes les variables en mémoire centrale. 
Affecte l'adresse mémoire maxi pour le BASIC et 
réserve l'espace pour les chaînes qui est par défaut 
de 1000 caractères ou de 1/8 de l'espace mémoire 
disponible. (C'est la plus petit qui est considéré) 


CLEAR efface les variables et réserve l'espace 
standard pour les chaînes 

CLEAR ,,3000 efface les variables et réserve 3000 ca- 
ractères pour les chaînes. 


CONT : continue l'exécution d'un programme après arrêt de 
celui-ci par STOP,END ou par Contrôle C .N'est pas 
accepté si le programme a été modifié. (dans ce cas 
faire GOTO XX). 


DELETE n° ligne début-n° ligne fin : supprime les instruc- 
tions comprises entre les limites spécifiées. Les n° 
de lignes spécifiés doivent exister. 


DELETE 100-200 supprime toutes les instructions 
comprises entre 100 et 200. 


FILES "U:x.x" fournit la liste des fichiers de l'unité de 
disque spécifiée U=A,B,C,etc.. 


FILES "A:x.BAS" donne la liste de tous les fichiers 
du type BAS (BASIC) du disque A. 


KILL "U:Nom Fichier" supprime un fichier de l'unité de disque 
spécifiée U=A,B,.. 


KILL "A:PAYE" supprime le fichier "PAYE' 


LIST n° ligne départ-n° ligne fin : liste les lignes du pro- 
gramme comprises entre les limites indiquées. 
LIST liste tout le programme 
LIST 10 liste la ligne 10 
LIST 500- liste toutes les lignes à partir de 500 
LIST -400 liste toutes les lignes jusqu'à 400. 
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LLIST Liste le programme en mémoire centrale sur le péri- 


phérique esclave. 


LOAD "U:nom fichier" ,R charge en mémoire centrale un pro- 
gramme.R lance son exécution 


LOAD "PAYE" charge en mémoire centrale "PAYE' 
de la disquette À 
"B:PAYE" B 


"PAYE" ,R A et exécute 


LOAD 
LOAD 


“ancien nom-fichier" AS "nouveau nom-fichier" : 
un nouveau nom à un fichier. 
NAME "PAYE" AS "PAIE" 


Annule le programme en mémoire centrale, 


NAME affecte 


NEW 


MERGE "U:inom de fichier" : concatène le programme spécifié 
(sauvegarde en ASCII). Les lignes du programme 
concaténé dont les N° sont identiques aux n° de 
ligne déjà en mémoire centrale remplacent les lignes 


en mémoire centrale. 


RENUM nouveau n° de ligne,première ligne,incrément 
- ‘nouveau n° de ligne' qui est de 10 par défaut 
spécifie le nouveau premier n° de ligne. 
- "première ligne' spécifie la première ligne où 
doit commencer la renumérotation. C'est la première 
ligne par défaut. 
- ‘'incrément' représente l'incrément à utiliser pour 
la renumérotation. Il est de 10 par défaut. 


RENUM tout le programme avec 


renumérote 

un nouveau n° de première ligne égal 
à 10 et un incrément de 10. 
renumérote avec un nouveau premier 
numéro de ligne égal à 1000 et un 
incrément de 10. 

renumérote à partir de la ligne 900 


en lui affectant 1000 comme nouveau 


RENUM 1000,,10 


RENUM 1000,900,10 


numéro. 

RUN n° ligne : exécute le programme en mémoire centrale au n° 
de ligne indiqué. Toutes les variables sont initiali- 
sées à zéro. 

RUN exécute le programme à la première ligne. 

RUN "U:nom fichier",R Clot tous les fichiers, supprime le 


contenu de la mémoire, 
puis l'exécute. Si 'R' 
ne sont pas clos. 


SAVE "U:nom fichier" sauvegarde 


charge le programme spécifié 
est spécifié, les fichiers 


le programme de la mémoire 


centrale sur disque sous le nom indiqué .U=A,B,C,etc… 
représente l'unité de disquette. 


SAVE "PAYE" 
SAVE "B:PAYE" 


sauvegarde le programme sur l'unité À 
sauvegarde le programme sur l'unité B 


SAVE "U:nom fichier",P sauvegarde le programme en mode 


‘protégé'. Le programme sauvegarde ne peut être listé. 


SAVE "U:inom fichier",A sauvegarde le programme sous forme "ASCII", 
c'est-à-dire sous forme non compactée, permettant ainsi 
sa manipulation par l'éditeur de texte. Ce programme 
non compacté peut aussi être concaténé à un autre 


programme par la commande MERGE. 


SYSTEM Permet de quitter le BASIC. 
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TRON Permet de visualiser à l'exécution du programme les 
N° des instructions effectivement exécutées. (TRACE) 


TROFF Annule TRON. 


VARIABLES 


Noms 


Les noms de variables s'écrivent avec plusieurs lettres ou 
chiffres mais le premier caractère doit être une lettre. 


Avec les anciennes versions des BASICS MICROSOFT, seuls les 
2 premiers caractères sont pris en considération (2 variables 
ayant des noms commençant par 2 caractères identiques sont dans 
ce cas connues comme une seule). Pour la version 5., les 40 
premiers caractères sont significatifs. 


Sur TRS 80 un nom de variable ne doit pas comporter de mot- 
clé du BASIC. Ainsi "COIFFEUR' qui contient 'IF' n'est pas 
accepté. 


Types 
11 y a 4 types de variables : les variables entières, simple 
précision, double décision et chaînes de caractères. 


Le type est précisé par un caractère à droite de la variable 


(8 8 # !) : 
EX : X%=5 (variable du type entier) 


Par défaut, lorsque le type n'est pas précisé, les variables 
sont en simple précision. 


Caractère de 


lype déclaration Exemple 
Entières $ X$%=123:JOURS%=365 
(nombres entiers compris 
entre -32768 et +32767 
Simple précision ! SOMME !=1234.56 
(6 chiffres significatifs) 
Double précision # SOMME#=123456789.123 
(16 chiffres significatifs) 
Chaînes de caractères 8 NOMS="DUPONT" 


de longueur variable 
(255 caractères au maximum) 


Les variables de même nom avec des types différents sont 
considérées comme des variables distinctes. (AS# et AS par ex). 


CLEAR et RUN initialisent les variables avec des valeurs 
nulles (0 pour les variables numériques, chaîne vide pour les 
variables chaînes). 


La place occupée en mémoire va, bien sûr, en croissant avec 
la précision des nombres. Il en va de même pour les temps de 
calcul sur ces nombres. 


Constantes octales-hexadécimales 


Des constantes octales sont spécifiées par '&' ou '&0' devant 
le nombre. 
EX : PRINT &0377 -- 255 
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Des constantes HEXADECIMALES 
le nombre. 


Ex : PRINT 8HFF -- 


Les nombres représentés vont 
négatifs sont représentés sous 


SES FICHIERS 


sont spécifiées par '&H' devant 


255 


de -32768 à +32767. Les nombres 
forme de complément vrai. (le 


premier des 16 bits est positionné à 1 pour les nombres 


négatifs). 
OCTAL DECIMAL HEXADEC IMAL 
&0100000 -32768 &H8000 
&0100001 -32767 &H8001 
&0177777 -1 &HFFFF 
&0000000 0 &H0000 
&0000001 +1 &H0001 
&0777777 +32767 &H7FFF 


Des constantes OCTALES/HEXADECIMALES définies dans des DATA 


pourront être lues ainsi : 
10 DATA 377,&0377 


20 READ X:PRINT VAL("&"+STR$(X)) 


30 READ X:PRINT X 


DEFINT -DEFSNG - DEFDBL 


DEFINT -DEFSNG - DEFDBL -DEFSTR 
(définition globale de type de 


PRE > 255 


252259 266, 


variables) 


DEFtype lettres permet de définir GLOBALEMENT le type de toutes 


variables dont 


les noms commencent par les 


lettres spécifiées, plutôt que de déclarer 
explicitement le type de chaque variable par 
un caractère (%,8,#,1). 


On peut cependant déclarer explicitement par 


un caractère (! 


1%1#,8) un type de variable qui 


aurait été défini par DEFtype. La déclaration 
explicite est prioritaire. 


DEFINT J 


DEFSTR A-C 


DEFINT I-N,R-T 


Toutes les variables commençant 
par J et non déclarées explici- 
tement par un caractère 

1,%,8,#) sont des variables 
entières. 


Toutes les variables commençant 
par une lettre A,B ou C sont 
du type chaîne. 


Spécifie 2 domaines de varia- 
bles entières. 


La version interprétée du BASIC admet la redéfinition du type 


des variables en cours de programme. 


(la définition des varia- 


bles ne peut être dynamique avec la version compilée de 


MICROSOFT 5.) 
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Conversion de types de variables 


Le stockage d'une valeur se fait suivant le type de la 


variable. 10 A4=123. 45 
20 PRINT A4 
RUN 
123 


A#=1.001# ——-> A#=1.001 
A#=1.001D —-> A#=1.001 


A#=1.001 ——-> A#=1.00100046730042 Attention! 
1.1 /2# >) .550000011920929 
1.1#/24 ——> .55 


10 INPUT "Nombre? ";X#:PRINT X# 
RUN 
Nombre? 1.001 
1.001 
Lorsqu'une opération +,-,x doit être exécutée, les opérandes 
sont d'abord convertis avec la précision du plus précis des 
opérandes, puis l'opération est effectuée avec cette précision. 


Ainsi le résultat d'une opération entre un opérande simple 
précision et un opérande double précision est en double 
précision. 

Toutefois, si le résultat d'une opération sur 2 opérandes 
entiers ( -32768 et 32767) n'est pas entier, c'est en simple 
précision qu'il est fourni. 


Pour la division, les règles sont les mêmes sauf pour la 
division entre entiers où le résultat est fourni en simple 
précision. 


10 A=2:B=3: R-A/B 
20 A=2:B#=3:R#=A/B4# 
30 PRINT R,R# 


RUN 
.6666667 .6666666666666667 


Pour une opération de comparaison, les opérandes sont conver- 
tis à la même précision avant d'être comparés. 


Effets de la conversion sur la précision : 

La conversion en entier supprime la partie fractionnaire. Un 
nombre double précision converti en simple précision est 
arrondi. 


Attention ! La conversion en double précision ne complète pas 
seulement par des zéros à droite. 


10 A!=1.00001 
20 B#=A! 
30 PRINT A!,B# 
RUN 
1.00001 1.000009894371033 


On peut éviter cela en utilisant la fonction STR$& 
10 A!=1.00001 
20 8#=VAL(STR$(A!)) 


30 PRINT A,B# 
donne 1.00001 1.00001 


17 


LE BASIC ET SES FICHIERS 


EXPRESSIONS ET OPERATEURS 


Une expression peut être simplement une constante du type 
numérique où chaîne, une variable ou une combinaison de 
constantes et de variables liées par des opérateurs. 


Ex : (Xx2)+4/6 
Les opérateurs effectuent des opérateurs sur des valeurs. 
1ls sont classés en 3 catégories : 


1/ Arithmétiques 
2/ Relationnels 
3/ Logiques 


Opérateurs arithmétiques 


Exponentiation 
# / Multiplication Division 
+= Addition Soustraction 
MOD \ Modulo Division entière 


L'évaluation des expressions se fait avec l'ordre des 
priorités des opérateurs défini ci-dessus. 


5+10/5 est égal à 7 
Des parenthèses permettent de changer cet ordre. Ce sont 
d'abord les expressions entre parenthèses qui sont évaluées. 
(5+10)/5 est égal à 3 
X MOD Y : L'opérateur MOD donne le reste de la division de 


X par Y 
PRINT 100 MOD 3 ------ > 1 
X\Y : L'opérateur \ donne la partie entière du quotient X 
par Y 
PRINT 100 \3  ------ > 33 
(X doit être un entier compris entre -32768 et 
32767). 


Opérateurs relationnels 


Ils comparent 2 valeurs. Le résultat est soit égal à -1 


(condition vraie), soit égal à 0 (condition fausse). 
Ceci permet de prendre une décision (par IF .. THEN ... ELSE) 
100 IF X<O THEN PRINT "NOMBRE NEGATIF" ELSE PRINT "NOMBRE POSITIF" 


Egalité 

Inférieur 
Supérieur 
Différent 
Inférieur ou Egal 


AAVAN 
V 


Opérateurs logiques 


Ils testent des relations multiples. Le résultat de l'opéra- 
tion logique est soit (égal à 0) soit vrai (égal à -1) et 
permet ainsi de prendre une décision par IF .. THEN .. ELSE 


100 IF AÇO AND B<O THEN PRINT "A et B SONT NEGATIFS" 


L'ordre des priorités d'évaluation des opérateurs logiques 
est le suivant : NOT - AND - OR - XOR - IMP - EQV . 
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Dans les tables de vérité ci-dessous '0' signifie 'FAUX' et 
‘"l' signifie 'VRAl'. Mais en réalité le TEST se fait sur 
0 (FAUX) et sur >< O(vrai) et le résultat est soit 0 (faux), 
soit -1 (vrai) 


R1 R2 
NOT (NON) NOT R1 
1 - 0 
0 1 
AND (ET) R1 AND R2 IMP (IMPLICATION) R1 IMP R2 
1 1 1 1 1 1 
1 0 0 1 0 0 
0 1 0 0 1 1 
0 0 0 0 0 1 
OR (OU) R1 OR R2 EQV (EQUIVALENT) R1 EQV R: 
1 1 1 1 1 1 
1 0 1 1 0 0 
0 1 1 0 1 0 
0 0 0 0 0 1 
XOR (OU EXCLUSIF) R1 XOR R2 
1 1 0 
1 0 1 
0 1 1 
0 0 0 


Les priorités ä'évaluation des expressions comportant des 
opérateurs arithmétiques, relationnels et logiques sont : 


1/ Parenthèses 

2/ Opérateurs arithmétiques 

3/ Opérateurs relationnels (1 seul niveau) 
4/ Opérateurs logiques 


Ex: MXMUN=-((A>B)#A+(A<=B)#B) donne le plus GRAND de A et B 


Opérateurs booléens 


La manipulation de bits et les opérations booléennes sur ces 
bits s'effectuent avec les opérateurs AND, OR, NOT, ... 


Ces derniers opèrent sur des groupes de 16 bits au plus qui 
sont spécifiés par des nombres allant de -32768 à 32767 (re- 
présentés en complément vrai de façon interne). Les opérations 
s'effectuent BIT à BIT. 


Ex: 15 —---- >0000000000001111 
4 >0000000000000100 

15 AND 4 —->0000000000000100  ------»4 
Ex: 4 >0000000000000100 
2 >0000000000000010 

4 OR 2 ------->0000000000000110 >6 
Ex: 1 — -21111111111111111 


—20000000000001000 
-1 AND 8 ——--- >0000000000001000  ------»8 
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ENTREES AU CLAVIER : INPUT - LINE INPUT - INPÜTS 


INPUT "MESSAGE" ; variable 1, variable 2, ... 


Permet d'entrer, pendant l'exécution d'un programme, une ou 
plusieurs valeurs numériques ou chaînes de caractères. Les 
variables spécifiées dans l'ordre INPUT sont séparées par des 
virgules. 


Après l'affichage du message, l'opérateur doit entrer les 
valeurs des variables dans l'ordre défini par l'instruction 
INPUT en les séparant par des virgules dans l'ordre défini 
par l'instruction INPUT en les séparant par des virgules. 


Les variables numériques peuvent également être séparées par 
des espaces. 


Ex: 10 INPUT "Nom,Prenom,Age ? ";NOM$, PRENOM$, AGE 


Après l'affichage du message ‘Nom ,Prénom ,Age ?' l'opéra- 
teur entre : 


DUPONT ,JEAN, 20 


Les variables NOM$,PRENOMS ,AGE prennent alors respectivement 
les valeurs DUPONT, JEAN et 20 


Lorsque l'opérateur veut affecter une valeur nulle à une 
variable, il frappe seulement un retour-chariot ou une 
virgule. (sur TRS 80, une variable conserve son ancienne 
valeur si on entre seulement un retour-chariot). 


Si l'opérateur n'entre pas toutes les valeurs prévues, le 
système envoie des ?? pour signifier à l'opérateur qu'il doit 
entrer les valeurs manquantes. 


Si l'opérateur entre une chaîne de caractères alors que 
c'est une valeur numérique qui est attendue, le message 
?REDO est envoyé. (Recommencez depuis le début). Les chaînes 
de caractères qui comprennent des virgules doivent être 
entrées entre guillemets. 


10 INPUT "Rue? ";RUE$ 
20 PRINT RUE$ 
RUN 


Rue? "9,rue d'Orgemont" 


9,rue d'Orgemont 


LINE INPUT "MESSAGE";variable chaîne 


Permet de lire toute une chaîne au clavier, sans tenir 
compte des séparateurs tels que la virgule comme c'est le cas 
avec l'instruction INPUT. C'est seulement un retour-chariot 
qui délimite la fin de la chaîne qui ne peut cependant pas 
excéder 255 caractères. 


INPUT$(1):(MICROSOFT 5.) 


Fournit au programme chaque caractère frappé au clavier, 
sans attendre de séparateur (comme pour INPUT) et permet ainsi 
de mieux contrôler l'introduction des données par l'opérateur. 
Le caractère acquis doit être imprimé par programme (s'il est 
valide). 
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On peut regretter que cette instruction soit "bloquante', 
c'est à dire que le programme doit attendre qu'un caractère 
soit frappé. 


100 Y$="" " Y$:chaîne acquise 

110 X$=INPUT$(1) " Lecture de 1 caractère 
120 IF ASC(X$)=13 THEN GOTO 150 ! Retour chariot? 

125 IF ASC(X$)=8 THEN 


Y$=LEFTS$(Y$,LEN(Y$)-1): PRINT X$;:GOTO 110 " Curseur gauche? 
130 PRINT X$; " Impression du caractère acquis 
140 Y$=Y$+X$:GOTO 110 " Ajout du caractère acquis 


150 ‘ Traitement de la chaîne Y$ 


Sur TRS 80 INKEYS (l'équivalent de INPUTS8(1)), teste le 
clavier puis retourne immédiatement soit le caractère frappé 
soit une chaîne nulle si aucun caractère n'a été frappé. 


Ceci permet d'effectuer éventuellement un traitement (par 
appel d'un sous-programme) en attendant la frappe d'un 
caractère : 


100 X$=INKEY$ Lecture du clavier 


! 
110 IF X$="" THEN GOSUB ....:GOTO 100 ‘ Appel d'un sous-programme 
115 ! ‘ en attendant la frappe 
116 " d'un caractère au clavier. 
120 Traitement du caractère acquis 
125! 
130 GOTO 100 


IF ,. THEN ., ELSE .. (SI ,. ALORS .. SINON ..) 


IF expression logique THEN suite d'instructions ELSE suite d'instructions 
tt 


vraie ou fausse si exp. logique vraie si exp. logique fausse 


Cette instruction teste si une expression logique est vraie 
ou fausse. 


Si celle-ci est vraie, alors toutes les instructions compri- 
ses entre THEN et ELSE, sont exécutées. 


Sinon, ce sont toutes les instructions après le ELSE qui 
sont exécutées. 


Vrai Faux 
instructions instructions 
après THEN oprès ELSE 

Ex: 10 INPUT "Nombre A,Nombre B ? ";A,B 
20 IF A>B THEN PRINT "A > B" ELSE PRINT "A <= B" 


30 GOTO 10 


En fait, le test peut se faire, non seulement sur une 
expression logique, mais aussi sur une expression arithmétique 
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qui est interprétée comme fausse si elle a une valeur nulle ou 
comme vraie pour toute autre valeur. Mais on évitera d'utiliser 
cette particularité du BASIC. 


Ex: 10 IF I THEN PRINT "I est different de 0" 


Ex: 10 IF (I<10)#(1»20) THEN PRINT " I n'est pas compris entre 10 et 20" 


Les IF .. THEN .. ELSE .. peuvent être imbriqués, mais il 
faut alors bien s'assurer qu'à chaque IF-THEN il correspond 
un ELSE. 


10 INPUT "Nombre A,Nombre B ? ";A,B 
20 IF A<=B THEN IF A<B THEN PRINT "A<B" ELSE PRINT "A=B" ELSE PRINT "A>B" ‘ 


FOR ,, NEXT ,.,STEP ., (BOUCLES) 


FOR variable compteur=valeur initiale TO valeur limite 
STEP incrément 


NEXT variable compteur 


La valeur initiale, la valeur limite et celle de l'incré- 
ment peuvent être spécifiées par des expressions. 


Les instructions qui suivent FOR sont exécutées d'abord avec 
pour valeur de variable la valeur initiale spécifiée dans FOR. 


Lorsque l'instruction NEXT est rencontrée, la valeur de la 
variable compteur est incrémentée de la valeur spécifiée dans 
STEP (1 par défaut), puis est comparée à la valeur limite 
indiquée dans FOR : 

- Si la nouvelle valeur de la variable compteur reste infé- 
rieure ou égale (pour un incrément positif) à la valeur 
limite spécifiée après TO, il y a branchement à l'instruction 
après FOR et les instructions jusqu'à NEXT sont à nouveau 
exécutées avec la nouvelle valeur de la variable compteur. 


- Si au contraire, la valeur de la variable compteur dépasse 
(pour un incrément positif) la valeur limite, le programme 
continue à s'exécuter après l'instruction NEXT. 

e CAUUL delVateur LNITIALE”, 


Lorsque l'incrément spécifié nes A A perd ANT FOR 
dans STEP est négatif, c'est au VALEUR IMITIALE? 


moment où la valeur de la 
variable compteur devient infé- 
rieure à la valeur limite que 
l'exécution de la boucle FOR 
..NEXT se termine. 


Ex: 10 FOR I=10 TO 1 STEP-1 ZNSTRUCTIONS ENTRE 
20 PRINT I; FOR et NEXT 
30 NEXT ! = 
4O PRINT "FIN" 
run 
98765432 1/FIN SUÎiTE 
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10 FOR I=0 TO 1 STEP .3 


20 PRINT 1!; 

30 NEXT I 
run 

0 .3 .6 .9 


Calculées au moment de l'exécution de l'instruction FOR, 
donc une seule fois, "valeur initiale', "valeur limite' et 
‘'incrément' ne varient pas en cours d'exécution de la boucle 
si les valeurs des variables qui ont servi à les calculer 
évoluent pendant l'exécution. En revanche, la valeur de la 
variable compteur peut être modifiée. 


Depuis la version 5., c'est en début de boucle que se fait 
la comparaison de la valeur de la variable compteur à la 
valeur finale. 


La boucle n'est donc pas exécutée une fois si la valeur 
finale est inférieure à la valeur initiale (pour un incrément 
positif) comme c'était le cas lorsque le test se faisait en 
fin de boucle (versions antérieures à la 5.). 


La variable compteur doit être du type simple précision ou 
entier. Avec ce dernier type, l'exécution est plus rapide. 


Boucles imbriquées 


Plusieurs boucles FOR .. NEXT peuvent être 'emboîtées', 
c'est à dire qu'une boucle peut être placée à l'intérieur 
d'une autre. Mais il est interdit de les faire se chevaucher. 


Exemple 


10 FOR I=1 TO 5 " Boucle externe 


15 PRINT "Iz"sIsmga": 


20 FOR J=1 TO 10 " Boucle interne 

30 PRINT J; 

yO  NEXT J 

50 PRINT 

60 NEXT I 

run 

1=:19:12345678910 
1=:229:123456789 10 
1:55 J:12345678 9 10 


S'il n'y a pas d'instruction entre NEXT J et NEXT I, 
NEXT J,I donne le même résultat. 


NEXT (au lieu de NEXT J) est accepté, puisqu'en fait NEXT 
incrémente le compteur du FOR le plus récent et que celui-ci 
est supprimé dès qu'il atteint la valeur limite. Mais pour des 
raisons de lisibilité, on indiquera le nom de la variable. 
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Particularité de la BOUCLE FOR pour les BASICS INTERPRETES : 


(pour versions antérieures à la 5.) 


Ce programme apparemment bien écrit ne fonctionne pas : 


10 FOR I=1 TO 5 


20 IF 1=3 GOTO 40 " On sort par GOTO 
30 NEXT I 

4O FOR J=1 TO 10 " Boucle externe 
50 FOR 1=1 TO 6 " Boucle interne 
60 PRINT "I=";I 

70 NEXT I 


75 PRINT "Attention ! il va y avoir le message 
NEXT WHITOUT FOR" 
80 NEXT J 


I de la boucle interne 
Positionnement I de la première boude 
Sur l'ancien TI FORL' reste dans la pile 


Ceci s'explique de la façon suivante : 


- À chaque fois qu'un FOR est rencontré, la variable compteur 
correspondante est stockée dans une pile. Dès que la variable 
compteur atteint sa limite par NEXT, elle est supprimée de 

la pile (ainsi que celles du dessus). 


- Mais lorsqu'on quitte une boucle FOR par "GOTO', la variable 
compteur reste dans la pile et si une nouvelle instruction FOR 
pour cette même variable est rencontrée, le pointeur de pile 

se positionne sur l'ancienne variable. Par conséquent, si cette 
variable compteur correspond à une BOUCLE INTERNE à une autre 
boucle, la variable de la boucle externe (au-dessus dans la 
pile) est éliminée. 


— Par contre, si la variable compteur restée dans la pile est 
utilisée à nouveau dans une boucle externe s'achevant norma- 
lement, il n'y a pas de problème. 


Solution : On peut quitter la boucle par : 
IF .....THEN I=valeur limite:NEXT I:GOTO XX 


On peut également prévoir, pour des boucles ne s'achevant pas 
complètement, des variables particulières qui ne seront pas 
utilisées dans des boucles internes. 


La séquence ci-dessous ne pose pas de problème ; la fin de 
la boucle "FOR I' élimine de la pile le compteur de la boucle 
interne "FOR J' 


10 FOR I=1 TO 5 
20 FOR J=1 TO 4 


30 IF J=2 THEN GOTO 45 
40  NEXT J 

45 PRINT "Jz=";J 

50 NEXT I 
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TABLEAUX : DIM - ERASE ri 


Un tableau est une suite Mois (4)| 34 
ordonnée d'éléments. Pour les , 
tableaux à une dimension, Mois 
celle-ci est déclarée par une 
instruction. 


DIM NOM=TABLEAU (Nombre éléments) 


Ainsi une table contenant les 
nombres de jours des différents 
mois de l'année peut être déclarée 
par : 


LEE 


DIM MOIS(12) 


Tous les types de tableaux sont Nois(a)] 34 | 
acceptés (numériques, chaînes de 
caractères). Les règles d'appellation sont les mêmes que pour 
les variables. 


Exemple 
X=7 
DIM JOURS (X) 


(la version compilée n'accepte qu'une constante dans une 
déclaration de dimension). 


La déclaration des tables de dimension inférieure à 10 n'est 
pas nécessaire. Elle est toutefois recommandée, à la fois par 
souci de clarté et d'économie de la mémoire. Bien que rare- 
ment utilisé, l'élément 0 d'une table existe. 


Plus généralement, les tables peuvent avoir plusieurs 
dimensions déclarées par : 


DIM NOM-TABLE(diml,dim2,...) ra 
Soit une table à 2 dimen- 
sions contenant des stocks R4 
de voitures de différents 


types (4) et de différentes 


usines (5) pour chacun de Re 
t 5 
ces types Tp Re 
DIM STOCK(4,5) réserve une 
table de 4 lignes et RAS 


5 colonnes. 


L'introduction des données 


dans cette table se programme vHNE(A) usine (2) TABLE STOCK 
ainsi : 10 DIM STOCK(4,5) 


20 FOR TYPE=1 TO 4 


30 FOR USINE=1 TO 5 

40 PRINT "Stock:";"Type ";TYPE;"Usine ";USINE; 
50 INPUT STOCK(TYPE ,USINE) 

60 NEXT USINE 


70 NEXT TYPE 


RUN 
Stock:Type 1 Usine 1 ? * L'opérateur entre la valeur 
Stock:Type 1 Usine 2 ? * L'opérateur entre la valeur 
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Pour connaître le nombre de voitures d'un type nous 
écrirons : 
100 INPUT "Type? ";TYPE 


110 TOTAL=0 


120 FOR USINE=1 TO 5 
130  TOTAL=TOTAL+STOCK(TYPE ,USINE) 
140 NEXT USINE 


150 PRINT "Total TYPE:";TYPE;"="; TOTAL 
160 GOTO 100 


Le total des voitures d'une usine sera donné par : 
200 INPUT "Usine? ";USINE 


210 TOTAL=0 


220 FOR TYPE=1 TO 4 
230 TOTAL=TOTAL+STOCK(TYPE ,USINE) 
240 NEXT TYPE 


250 PRINT "Total USINE:";USINE;"=";TOTAL 
260 GOTO 200 
Comme pour les tables à 1 dimension, la déclaration d'une 
table à plusieurs dimensions, toutes inférieures ou égales à 
10, n'est pas nécessaire. 


Alors qu'une table et une variable peuvent avoir un même nom, 
plusieurs tables, même si elles ont des nombres de dimensions 
différents, ne peuvent avoir le même nom : 


Exemple 
10 DIM A(7):DIM A(7,8) est interdit 
ERASE Nom de tableau,........ : supprime un ou plusieurs 


tableaux de la mémoire centrale 


100 ERASE A,NOMS ‘'Efface le tableau À et le tableau NOMS 
110 DIM A(200) 


La place mémoire est récupérée dynamiquement. Un effacement 
de tableau non existant provoque une erreur. 


(ERASE n'est pas accepté avec la version compilée de MBASIC 
5.) 
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SAISIE D'UN TABLEAU 2 DIMENSIONS 


R: : Retour à la zone précédente 
' RT: Retour au bloc précédent 
; Retour Chariot: N'affecte pas la valeur de la zone 


DATA "FLINS ","CLEON ",BILLANCOURT ,"SANDOUVILLE" ,"DOUAI ","ORLEANS": 
FOR I=1 TO 6:READ USINE$(I):NEXT I 


DATA R5,R6,R12,R18,R20,R30,RUO:FOR I=1 TO 7:READ TYPE$(I):NEXT I 

LU 

DIM STOCK(7,6) " 7 Types - 6 Usines 

| DER ARRE RREERCRR RER CEE ES RS RE ES PTE PRES PE SRE RER ES ETES ÉERSREU T  R 

FOR TYPE=1 TO 7 * Saisie tableau 

À À 

FOR USINE=1 TO 6 

PRINT "Stock:";TYPES$(TYPE) ;"-";USINES$(USINE); " Libellé 
PRINT TAB(21) STOCK(TYPE,USINE) TAB( 25) " Ancienne valeur 
INPUT X$:X=VAL(X$):IF X<O OR X>100 THEN GOTO 160 " Nouvelle valeur 


IF X$="R" AND USINE>1 THEN USINE=USINE-1:PRINT:GOTO 160 
IF X$="RT" AND TYPE»>1 THEN TYPE=TYPE-2: PRINT: GOTO 250 
IF X$><"" THEN STOCK(TYPE ,USINE)=X " Saut de la zone 
NEXT USINE 
L 
PRINT 
NEXT TYPE 
À paraitre de ter lis en rvanis de rte anses an rec and mn ra 2 mien enr ei enclin salut dm érileane Dors éme dd a ar CT En dot és ne 
+ 
‘run 
LU 
? Stock:R5-FLINS 0:75 
: Stock:R5-CLEON 0 ?7 
! 
U 


DATA-READ-RESTORE 


DATA valeur 1, valeur 2,... 


Les instructions 'DATA' permettent de définir de façon 


‘'statique' des données (constantes) que manipulera le pro- 


gramme (ces "DATA' ne peuvent qu'être lues) Tele 
' 
10 DATA 31,28,30,31 .....30,31 34. 
20 DATA LUNDI,MARDI,.....,DIMANCHE [28 | 


READ variable 


variables les valeurs définies dans 
DATA. 


100 FOR I=1 TO 12 


110  READ MOIS(I) V4 se 


120 NEXT I " Lecture dans table '"MOIS' 


Affecte séquentiellement aux 


200 FOR I=1 TO 7 
210  READ JOUR$(I) er 
220 NEXT I " Lecture dans table 'JOUR$' 


La première instruction "READ variable' exécutée affecte 


à cette variable la valeur de la seconde donnée définie dans 
DATA. 
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La seconde instruction "READ variable' exécutée affecte à 
cette variable la valeur de la seconde donnée définie dans 
DATA etc. 


Toutes les DONNEES définies dans les DATA sont ainsi lues 
séquentiellement au fur et à mesure de l'exécution d'instruc- 
tions READ, dans l'ordre des numéros de ligne. 


Les types des données doivent bien sûr s'accorder avec les 
types des variables pour lesquelles elles sont lues. 


I1 convient d'être soigneux dans l'écriture des DATA ; en 
effet un simple décalage d'une donnée fausserait tout. 


Aussi, afin de clarifier les programmes, les DATA seront de 
préférence lus dès le début du programme dans des tables aux- 
quelles il sera ensuite possible d'accéder de façon directe. 


Au moment de la mise au point, on visualisera la valeur de 
la variable qui contient la dernière DATA lue afin de s'assurer 
du bon cadrage. 


Les DATA, quelles que soient leur implantation physique dans le 
programme, sont vues comme un ensemble unique. (Sauf si 
RESTORE X est utilisé). 


Les données numériques qui doivent être lues comme des 
chaînes sont écrites entre des guillemets. 


DATA "3","6","8":FOR I=1 TO 3:READ X$#(I):NEXT I 


Les données chaînes de caractères comportant des caractères 


Spéciaux tels que ': ,' doivent également être écrites entre 
guillemets. 
20 DATA "LUNDI:","MARDI:",..... 


RESTORE 


Si les DATA doivent être lues à nouveau, il faut utiliser 
RESTORE. 


RESTORE n° ligne provoque un positionnement sur les DATA de: la 
ligne spécifiée : 


10 DATA 3,4,5,6 

20 RESTORE 100 " Positionne sur la ligne 100 
50 READ X:READ Y:READ Z 

60 PRINT X,Y,Z 


100 DATA 7,8,9 
7 8 9 


run 


LES CHAINES DE CARACTERES 


.LEFT$ RIGHT$ MID$ 
- LEN 

.STR$ VAL 

.ASC CHR$ 

. INSTR 

. STRING$ SPACES$ 
-OCT$ HEX$ 
.FRE(X$) 
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L'espace réservé pour les chaînes de caractères est par 
défaut de 1 000 caractères ou de 1/8e de l'espace mémoire 
disponible (c'est le plus petit qui est considéré), voir 
CLEAR. 


L'affectation d'une valeur à une chaîne s'écrit : 


nom de chaîne="suite de caractères" 


Exemple 
10 NOMS="DUPONT" 


Les "" indiquent que DUPONT doit être interprété comme une 
chaîne de caractères et non comme une variable. La longueur 
d'une chaîne de caractères, qui n'a pas à être déclarée, peut 
varier en cours d'exécution du programme (jusqu'à 255). De 
même, la longueur de chaque élément d'une table de chaînes 
peut varier dynamiquement. 


La concaténation (réunion) de chaînes de caractères est 
réalisée par l'opérateur noté "+" 


10 NOM$="DUPONT" 
20 PRENOM$="JEAN" 
30 NP$=NOM$+PRENOM$ 
4O PRINT NP$ 
RUN 
DUPONT JEAN 


Comparaisons 


La comparaison de chaînes de caractères se fait avec les 
opérateurs : 
= < > © >= <= 


Les chaînes sont comparées caractère par caractère de la 
gauche vers la droite jusqu'à ce que l'un des caractères 
d'une chaîne soit plus grand que l'autre (code ASCII supé- 
rieur). C'est alors cette chaîne qui est considérée comme la 
plus grande ('DURAND' est plus grand que '"DUPONT'). 


Si tous les caractères sont égaux, les chaînes sont consi- 
dérées comme égales. 


Exemple 
10 INPUT "Reponse (OUI-NON) ? ";R$ 
20 IF R$="OUI" THEN PRINT "Vous avez dit OUI":GOTO 60 
30 IF R$="NON" THEN PRINT "Vous avez dit NON":GOTO 60 


4O IF R$="" THEN PRINT "Vous n'avez entre qu'un RC":GOTO 60 
50 PRINT "Je n'ai pas compris" 
60 GOTO 10 


Remarque : Sur,.TRS 80, la ligne 10 doit être remplacée par : 


Rg="":INPUT .... pour que la ligne 40 fonctionne comme prévu 
(voir INPUT) 


LEFT$, RIGHT£, MID£ 


LEFT$ ,RIGHTS,MID$ permettent d'accéder respectivement aux 
caractères de gauche, de droite et de l'intérieur d'une chaîne. 


LEFTS (CHAINE, longueur à prendre à gauche) 
RIGATS (CHAINE, longueur à prendre à droite) 
MIDS (CHAINE, position début, longueur à prendre) 
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"CHAINE", ‘longueur à prendre' et ‘position début' peuvent 
être des expressions. 


Les valeurs de ‘longueur à prendre' et de "position début 
doivent être comprises entre 0 et 255. 


: SX$=LEFT$(X$,2) 


[MRIBALUNEAN 


NOM$=MID$(X$,3,4) PREN$=RIGHTS$(X$, 4) 
10 X$="MRBALUJEAN" 
20 SX$ =LEFT$ (X$,2) " 2 caractères à gauche 
30 PRENS$S=RIGHT$(X$,4) " 4 caractères à droite 
UO NOM$ =MID$ (X$,3,4) " 4 caractères à partir du 3ème 
50 PRINT SX$,PRENS$,NOM$ 
RUN 
MR JEAN BALU 
: 10 INPUT "Reponse? (OUI-NON) ";R$ 
20 IF LEFT$(R$,1)="O" THEN GOTO .... Teste si l'opérateur 
a répondu ‘OUI! 
: 10 NOM$="DUBONET" 
20 FOR I=1 TO 7 
30 PRINT LEFT$(NOM$, 1) 
4O NEXT I 
RUN 
D 
DU 
DUB 
DUBO 
DUBON 
DUBONE 
DUBONET 


Si "longueur à prendre' spécifiée est plus grande que la 
longueur de la chaîne, le résultat est la chaîne elle-même. 


Lorsque ’longueur à prendre' n'est pas précisée dans MIDS, 
cette fonction devient équivalente à RIGHTS. 


Si "position début' spécifiée dans MID$ est plus grande que 
la chaîne elle-même, une chaîne vide est retournée. 


MID#(CHAINE1, position début, longueur à remplacer)=CHAINE2 


Permet, à partir de ‘position début' dans "CHAINEl" et sur 
la longueur spécifiée, de remplacer des caractères par ceux 
de ‘"CHAINE2' 


Exemple 
60 MIDS ("MRBALUJEAN" ,3,4)="XXXX" ----%3æ X$="MRXXXXJEAN" 


Attention : ne permet pas l'insertion ou la suppression de 
caractères mais seulement la substitution. 
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Si 'CHAINE2' est plus longue que ‘longueur à remplacer', 
seuls les premiers caractères de 'CHAINE2' sont pris en 
considération. 


Si "CHAINE2' est plus courte que ‘longueur à remplacer', il 
n'y a substitution des caractères que sur une longueur égale 
à celle de 'CHAINE2'. 


10 MID#("123456",3,2)="XXX" ---> X8='12XX56" 
10 MIDS("123456",3,2)="X"  ---> Xg='12X456! 


LEN (chaîne) 


Donne la longueur d'une expression chaîne. 


10 NOM$="DUPONT" 
20 L=LEN (NOM$) 
30 PRINT L 
RUN 
5 


STRS#(X) 


Convertit une expression numérique X en une chaîne de 
caractères. 


10 X=123 


20 X$=STR$(X) 
30 PRINT X$,LEN(X$) 


RUN 
123 4 
Remarque : Le premier caractère de la chaîne est réservé pour 
le signe : C'est un espace pour un nombre positif et un 
signe '-' pour un nombre négatif. 


PRINT MIDS8 (STRS&(X),2,1) donne 1 comme résultat 


VAL (chaîne) 


Fonction inverse de STR$, elle donne la valeur numérique 
d'une expression chaîne. 


10 X$="123 FRANCS"" 
20 X =VAL(X$) 


30 PRINT X 
RUN 
123 
Si le premier caractère n'est pas un caractère décimal, un 
espace, un signe +, un signe - ou '.' , le résultat est égal 


à zéro. 
VAL(" 123") ——-> 123 
VAL("+123") —--> 123 
VAL("ABCD") ——-» 0 
VAL(" +123")——-> 0 


ASC (caractère) 


Chaque caractère a un code interne (code ASCII) auquel on 
accède par la fonction ASC (caractère) 


10 X$="A" 
20 X=ASC(X$) 
30 PRINT X 
RUN 
65 


31 


LE BASIC ET SES FICHIERS 


ASC (chaîne) 


Donne le code ASCII du premier caractère d'une expression 
chaîne. 
PRINT ASC("BONJOUR") ----> 66 


Une chaîne nulle comme argument provoque une erreur. 


CHRB(X) 


Fonction inverse de la fonction ASC, elle permet de générer 
des caractères ayant pour code ASCII la valeur de X. Cette 
valeur doit être comprise entre 0 et 255. X peut être une 
constante, une variable ou une expression. 


10 FOR 1:65 TO 65+26 
20 PRINT CHR$(I); 
30 NEXT I 
RUN 
ABCDEFGHIJ.....2Z 


Conversion MAJUSCULES-minuscules 
PRINT CHR$(ASC("A")#32) ----»> a (voir table des codes ASCII) 
10 INPUT "Votre NOM? ";NOM$ 


20 FOR 1=1 TO LEN(NOM$) 
30 PRINT CHR$(ASC(MID$(NOM$,1,1))+32); 


4O NEXT I 
RUN 
Votre NOM? ROULET 
roulet 
Caractères spéciaux (de contrôle) 
PRINT CHR$(7) _----> active la sonnerie du terminal 
PRINT CHR$(13)  ------ > provoque un retour en debut de ligne 
(sans saut de ligne) 
PRINT CHR$(10)  ------ > provoque un saut de ligne 


La fonction CHR#(X) est notamment utilisée pour l'envoi de 
caractères spéciaux aux terminaux (écran, imprimante, tables 
traçantes, ..). Elle permet de faire apparaître explicitement 
ces caractères dans la liste du programme. 


La frappe directe au clavier, de caractères de contrôle, 
si elle est possible, aurait 2 effets : 


- au moment où le programme est listé, les caractères de 
contrôle seraient envoyés au terminal qui les interprêterait 
(par ex. la sonnerie serait activée par ‘contrôle G' (code 
ASCII 7)). 


- Les caractères de contrôle n'apparaîtraient pas sur la liste 
du programme. 


Exemples divers 


Suppression d'un caractère à droite d'une chaîne : 


10 X$= "DUPONT" 
20 X$=LEFT$(X$,LEN(X$)-1) 
30 PRINT X$ 


RUN 
DUPON 
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Normalisation d'une chaîne à une longueur fixe : 


10 X$="DUPONT" 
20 Y$=RIGHT$(" "4+X$, 10) 
30 PRINT Y$,LEN(Y$) 
RUN 
DUPONT 10 


Insertion d'un caractère dans une chaîne : 


10 Z$="AAAAAAA" 
20 X$="B":L=3 
30 Z$=LEFT$(Z$,L)+X$+RIGHT$(Z$, LEN(Z$)-L) 
4O PRINT Z$ 
RUN 
AAABAAAA 


Remplissage par des zéros à gauche : 


10 X=123 
20 X$=RIGHT$(STR$(100000+X),5) 
30 PRINT X$ 
RUN 
00123 


INSTR (position départ, chaîne, chaîne cherchée) 


Recherche la position d'une chaîne dans une autre. Par 
défaut, la position de départ est égale à 1 : 


- Si la chaîne cherchée n'est pas trouvée, le résultat est 
égal à ©. 


- Si la chaîne cherchée est nulle, le résultat est la position 
de départ spécifiée. 


- Si la position de départ est supérieure à la longueur de 
la chaîne où s'effectue la recherche, le résultat est 
nul. 
Ex: 10 X$="DUPONT. JEAN" 
20 X=INSTR(X$,".") ‘ Recherche du caractère !. 
30 Y$=LEFT$(X$,X-1) 
4O PRINT Y$,X 


RUN 
DUPONT LA 


Ex: PRINT INSTR(3,"ABAABAAAN ,"B") > 5 
Exemples d'applications de INSTR 


Conversion hexadécimal-décimal 


10 X$="c" 
20 X=INSTR("0123456789ABCDEF" ,X$)-1 
30 PRINT X —----)12 


Conversion alphabétique-numérique 

Cette séquence d'instructions permet de répondre à une 
question 'Mode?' non pas par un chiffre, mais par une lettre 
(plus mnémonique) . 


10 INPUT "Mode? (C,A,P,R,N,M) ";MODE$ " Entrer C,A,P,... 

20 X=INSTR(" CAPRMN" ,MODE$) ‘ Position du caractère frappé? 
30 ON X GOTO 10,200,250,300,500,700,750 * Branchement multidirections 
40 GOTO 10 " X=1 (chaîne vide) 
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Remarque : Si MODES est une chaîne vide, X est égal à 1. C'est 
ce qui explique la présence d'un espace dans l'instruction 20 
devant 'CAPRMN' 


Vérification de caractères 


Vérifie si un caractère frappé appartient bien à un 
LU L 


ensemble de caractères autorisés : (chiffres plus le '.' sur 
l'exemple). 


10 X$=INPUT$(1) ‘ Introduction de 1 caractère 
20 X=INSTR("0123456789.",X$) " Position du caractère frappé? 
30 IF X=-0 THEN GOTO 10 " Caractère invalide? 

UO Y$=Y$+X$ " Acquisition du caractère 

50 PRINT X$; ‘ Impression du caractère acquis 


100 GOTO 10 


STRING$ (nombre de fois, chaîne) 


Génère une chaîne de caractères égale à la chaîne spécifiée, 
multipliée par le nombre de fois indiqué. 


Ex: 10 X$=STRING$(10,".") " Genere une chaine de 10 ‘. 
20 PRINT X$ 
RUN 


Le programme suivant complète des libellés par des '.' à 
droite : 


10 NZ$(1)="NOM:" 
20 NZ$(2)="PRENOM:" 
30 NZ$(3)="DATE NAISS:" 


50 FOR 1=1 TO 3 
60 PRINT NZ$(I);STRING$(20-LEN(NZ$(I),".");:INPUT X$ 


70 NEXT I 
RUN 
NOM 3e s5i0 0 2010 51518 610 0 
PRENOM: ........... 
DATE NAISS:....... 
SPACES(X) 


Génère une chaîne de X espaces. X peut être une expression 


10 X$="DUPONT"+SPACE $ (10 )+"JEAN" 
20 PRINT X$ 
RUN 
DUPONT JEAN 
Notons que la fonction SPC ne génère pas une chaîne d'espaces 
et n'est utilisable qu'avec l'instruction PRINT. 


OCT$ (expression) 


Génère une chaîne qui représente la valeur octale de l'ärgu- 
ment décimal. 


PRINT OCTS#(24) ----= > 30 
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HEX$ (expression) 


Gênère une chaîne qui représente la valeur hexadécimale de 
l'argument décimal. 


PRINT HEXS(26) ----- > 1lA 


FRE(X8#) 


Fournit l'espace libre pour les chaînes (X$ est un argument 
fantôme). 


PRINT FRE(XS#) ----- > 2300 
EDITIONS 
PRINT POS LPOS 
TAB LPRINT 
SPC WRITE 
PRINT USING WIDTH 


L'édition n'est sans doute pas la partie la plus noble de 
l'informatique, mais il faut bien, à l'issue d'un traitement, 
éditer des résultats, et la qualité de cette "édition" doit 
être, pratiquement, toujours excellente. 


PRINT expression 


Un simple PRINT d'une constante, variable ou expression 
affiche ou imprime (selon qu'il s'agit d'un écran ou d'une 
imprimante) la valeur de celle-ci puis provoque un retour en 
début de ligne et un saut de ligne. 


10 X=123 
20 PRINT X 
RUN 
123 


PRINT, 


L'impression de plusieurs valeurs sur une même ligne peut se 
faire simplement en séparant dans l'instruction les noms des 
variables ou les expressions par des virgules. 


10 SOMME =200 : NOMBRE =10 
20 PRINT SOMME, NOMBRE , SOMME/NOMBRE , 1980 


RUN PT SP M il 


200 10 20 1980 


Mais dans ce cas, l'impression des valeurs est faite selon 
un format standard (colonnes 1, 15, 29.. etc., les valeurs 
sont cadrées à gauche). 


PRINT ; 


Un point-virgule en fin d'instruction PRINT empêche le saut 
de ligne : les chaînes de caractères sont concaténées, les 
valeurs numériques sont suivies par un espace et précédées 
soit par un espace pour les nombres positifs, soit par le 


signe '-' pour les nombres négatifs. 


10 NOM$="DUPONT" : PRENOM$= "JEAN" 
30 PRINT NOM$; 
4O PRINT PRENOM$ 


RUN 
DUPONT JEAN 
PRINT "DUPONT";" "; "JEAN" ——----> DUPONT JEAN 
PRINT 123;456;- 789 ——--) 123 456 -789 
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PRINT TAB(X) 


La fonction TAB(X) permet de positionner directement la tête 
d'impression à l'intérieur d'une ligne en colonne X. X peut 
être une expression. 


10 A=123 : B=456 
20 PRINT A TAB(15) B 
RUN 
123 456 
colonne 15 
Attention : La tête d'impression ne peut revenir en arrière. 


Si X specifié est plus petit que la position courante de la 
tête, TAB(X) est sans effet. 


PRINT SPC(X) 


Avec la fonction SPC(X), X blancs sont imprimés à partir de 
la position courante : 


10 NOM$="DUPONT! : PRENOM$="JEAN" 
20 PRINT PRENOM$;SPC(3);NOM$ 
RUN 
JEAN DUPONT 


PRINT USING Hoo+ - ## $$ ##$ 4 \\ 18 


Considérons maintenant l'outil d'édition le plus puissant 
du BASIC : le "PRINT USING" 


ARITA S ER : SANS le PRINT USING les VALEURS 
NUMERIQUES sont CADREES à GAUCHE. Or, c'est généralement à 
DROITE qu'elles doivent être CADREES. 


PRINT USING "#####"; expression numérique 


Un format défini par une chaîne de # nous permet de cadrer 


les nombres à droite : chaque # représente la position d'un 
chiffre. 


10 X=123:Y=1234 
20 PRINT USING "##hihf#";X 
30 PRINT USING "#HH##hhf";Y 
RUN 
123 
1234 


Sans le PRINT USING, nous aurions obtenu : 


123 
1234 


La partie entre guillemets qui représente le format peut 
aussi être définie par une variable chaîne de caractères : 


10 X=123:Y-=1234 
20 FMT$="####4" 
30 PRINT USING FMT$;X 
4O PRINT USING FMT$;Y 
RUN 
123 
1234 


36 


LE BASIC ET SES FICHIERS 


PRINT USING "####.##"; expression numérique 


Le nombre de chiffres après la virgule qui doivent être 
imprimés est précisé dans le format par le nombre de # après 
L L 

a : 2 CHIFFRES APRÈS LA VIRGULE 

10 X=123.456 

20 PRINT USING "4h#f{iHif. H;X 

RUN 
1234.46 


On remarque que l'arrondi est assuré automatiquement. 


FORMAT MULTIPLE : PRINT USING "formatl £format2";Expl ,Exp2 


Avec le format multiple, à chaque variable est associé un 
format : 


10 X=123.456:Y-67 PRO EREER ‘ 
20 PRINT USING MAFHHHF. 4 HF. IHM X,Y 
RUN A 
123.46 67.00 


LIBELLES : PRINT USING "libx formatl liby format2";Expl,Exp2 


Des libellés peuvent être insérés dans le format. 


10 x=1234.567:Y=12 nes 
20 PRINT USING "FRANCS #HHHHHI. 18 % HF. 1H" X,Y 
RUN à— À 
FRANCS 1234.57 % 12.00 


Si le format est le MEME pour plusieurs variables, on fait 


10 X=123:Y=345:Z=678 
20 PRINT USING "##{#Hf#";X,Y,2 


RUN 
123 456 678 
+ Le signe ‘'+' n'est imprimé que s'il est prévu dans le 
format : 
5 PRINT USING " #4####",123 > 123 
10 PRINT USING "+####":123 > +123 
20 PRINT USING "+#{f#f#";,-123 > -123 
- Un signe '-' en fin de format provoque l'impression du 
signe '"-' à la fin d'un nombre négatif. 
10 PRINT USING MF. HMS IST > 15.10- 
20 PRINT USING MAHHHHfif. Hs 15,7 > 15.10 
#X .2 '#' placés en tête de format provoquent le remplis- 


sage par des 'x' des positions inoccupées à gauche du 
nombre imprimé. En outre ces 2'#' spécifient des posi- 
tions pour 2 chiffres supplémentaires. 


20 PRINT USING "######",123 > 229123 
30 PRINT USING "###4###",1234 ——--» ##1234 
UO PRINT USING "######",12345 > #12345 
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88 .2 ‘$' en tête de format provoquent l'impression du ca- 
ractère '$8g' à gauche du nombre imprimé. 
10 PRINT USING "$$###4#. H":456.78 —---- > $456.78 


U 
“Kkÿ ‘'#KXS combine les effets ‘#xk' et "#8". 
10 PRINT USING "##$##{#f{f.#f";2.34 > #H###$2, 34 
$ Si le nombre de positions spécifié dans le format est 
insuffisant pour la valeur à imprimer, le message % est 
imprimé devant la valeur. 
10 PRINT USING "##4#";12345 > 412345 


So Le caractère de soulignement définit le caractère immé- 
diatement suivant comme un libellé. Il permet ainsi 
d'introduire des caractères de fonction dans les libellés. 

PRINT USING " _.A= ####":123 > .A=123 


CHAINES DE CARACTERES 


PRINT USING " \ \";expression chaîne 
Le nombre d'espaces entre les '\' définit le NOMBRE de 
CARACTERES-2 à imprimer : 


10 X$="RENAULT" 
20 PRINT USING "\ \MsX$ 
RUN 
RENAU 


PRINT USING "!";expression chaîne 


Imprime le premier caractère d'une expression chaîne. 


PRINT "&";expression chaîne 


Spécifie une longueur variable de chaîne. La chaîne imprimée 
est égale à la chaîne spécifiée. 


10 NOM$="ROULET" : PRENOM$="JEAN" 
20 PRINT USING " & !";NOM$, PRENOM$ 
RUN 
ROULET J 


COMBINAISONS NUMERIQUES / CHAINES 


Les formats pour chaînes de caractères et variables numéri- 
ques sont combinables : 


10 X$="RENAULT" 

20 Y=1234.567:Z=11 Le 

30 PRINT USING "Société: \ ” \ ####44# 4 44 ff"; XS,Y,2 
nm ARRET 


RUN 8 >—— Vu 
Societe: RENAU 1234.57 %°11.00 


Programme pour tester PRINT USING 


Le programme suivant permet d'entrer par INPUT à la fois le 
format et le nombre à imprimer. 
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10 INPUT "Format ,Nombre ? ";FMT$, NOMBRE 
20 PRINT USING FMT$;NOMBRE 
30 GOTO 10 

RUN 


Format ,Nombre 7? #4##Hf. #4, 12.3 
12.30 
Format ,Nombre ? 


POS(0) 


Donne la position du curseur (ou de la tête d'impression) 
dans la ligne courante pour le terminal maître (l'argument 0 
n'est pas utilisé). 


100 PRINT "XXXXX";:X=POS (0): PRINT 
110 PRINT TAB(X) "YYYYY" 
RUN 
XXXXX 
YYYYY 


LPOS(0) 


Donne la position de la tête d'impression du terminal 
esclave. 


100 IF LPOS(0)>80 THEN LPRINT 
LPRINT 


Provoque l'édition sur le terminal esclave. Les règles 
d'utilisation sont les mêmes que pour PRINT. 


WRITE expressionl,expression2,.. (version 5.) 


Procède comme pour PRINT ... mais sépare les valeurs par des 
virgules et imprime les chaînes entre guillemets : 
10 A=80:B=90:C$="XXXXXX" 
20 WRITE A,B,C$ 
RUN 
80, 90,"XXXXXX" 


WIDTH largeur (version 5.) 


Précise le nombre maximum de caractères à imprimer par ligne 
pour le terminal maître (72 par défaut). Au-delà, un retour- 
chariot et un saut de ligne sont envoyés par le système BASIC. 


La largeur qui peut être spécifiée par une expression entiè- 
re, doit être comprise entre 15 et 255. Avec 255, les lignes 
ont une longueur 'infinie', ce qui permet l'envoi de caractè- 
res spéciaux (de contrôle) à l'écran ou à l'imprimante sans 
que BASIC envoie des retour-chariot intempestifs. 


Cependant, la valeur donnée par POS est remise à zéro après 
l'impression de 255 caractères. 


100 WIDTH 120 


WIDTH LPRINT largeur 


Pour le terminal esclave. 
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SOUS-PROGRAMMES  GOSUB - RETURN 


Plutôt que d'écrire plusieurs fois une même séquence d'ins- 
tructions en différents endroits d'un programme, on utilise un 
sous-programme écrit en un endroit unique. 


1000 
eee à 
pee A : 


100 GOSUB 1000 57 : 


110 Sous- 
$ » Programme 
200 GOSUB 1000 : 
210 . LT : 
7 = RETURN 


Un sous-programme BASIC s'écrit comme une suite d'instruc- 
tions mais celle-ci est appelée par une instruction 'GOSUB X' 
qui provoque un branchement à l'adresse X comme pour un 
"GOTO X' mais lorsqu'une instruction "RETURN' est rencontrée, 


il y a retour automatique à l'instruction qui suivait l'ins- 
truction d'appel 'GOSUB' 


Un sous-programme peut lui-même en appeler un autre. À 
chaque fois qu'une instruction "GOSUB' est exécutée, l'ADRESSE 
de RETOUR (adresse de l'instruction qui suit l'instruction 
d'appel) est stockée dans le haut d'une pile (Dernier Entré 
Premier Sorti) et à chaque fois qu'une instruction "RETURN' 
est exécutée, il y a débranchement à l'adresse de retour du 
haut de la pile, celle-ci étant alors supprimée de la pile. 


Ainsi les retours successifs des sous-programmes se feront 
bien dans l'ordre. 


Il convient, bien sûr, de ne pas entrer dans un sous- 
programme par un "GOTO' ou d'en sortir autrement que par un 
"RETURN". 


1900 2000 


_ 


100 GOSUB 1000 1500 cosuB 2000 


mé ee ras 
RETURN RETURN 
ler niveau 2e niveau 
É 
| À 
rd w 
A540 ê € 


10 
[ao | Pile Des ADRESSES De RETOUR 

Avec les BASICS interprêtes, une ‘'entrée' dans un sous- 
programme par un GOTO ne sera détectée que si la pile des 


adresses de retour est vide au moment de l'exécution d'une 
instruction RETURN. 


40 


LE BASIC ET SES FICHIERS 


Les sous-programmes sont utilisés non pas seulement pour 
économiser de la place mémoire, mais aussi (et plutôt) pour 
les raisons suivantes : 


- Par souci de clarté : le "programme principal' est plus court. 


- Les sous-programmes permettent éventuellement de répartir la 
programmation entre plusieurs programmeurs. 


- La mise au point se fait sous-programme par sous-programme. 
Ainsi on progresse plus sûrement dans la mise au point de 
l'ensemble du programme. 


- Dans le cas où la même séquence d'instructions est répétée, 
une modification dans cette séquence doit être faite aux dif- 
férents endroits où elle a été écrite. (fastidieux). 


- Lorsqu'un sous-programme est modifié, la "zone d'interven- 
tion' est bien délimitée ; tout le programme ne risque pas 
d'être remis en cause. 


- Les sous-programmes ont aussi l'avantage, lorsqu'en cours de 
mise au point, il faut 'restructurer' le programme, de per- 
mettre une certaine souplesse ; l'ordre d'appel des sous- 
programmes est à modifier mais ceux-ci ne changent pas. 


- Plutôt que d'insérer une nouvelle séquence d'instructions 
correspondant à l'ajout d'une nouvelle fonction, on peut 
écrire un sous-programme qui est appelé quand nécessaire. 


Les avantages des sous-programmes sont donc multiples. 
Aussi n'hésitera-t-on pas à en faire un usage abondant, même 
lorsqu'ils ne comportent que quelques instructions. 


ON .. GOTO ., -ON ,. GOSUB .. 


ON X GOTO N° lignel, N° ligne2,...... 
(branchement multidirections) 


Selon la valeur d'une variable X (ou d'une expression) 
1,2,3,.., il y a branchement au N° lignel, N° ligne2, N° 
ligne3,... 


10 INPUT "Mode? 1,2,3 ";X 
20 ON X GOTO 100,1000, 1500 


30 GOTO 10 æ=4A «2% «2:3 GN x GOTO 400, 4000, 4500 
100 ......... " Traitement 1 *x=24 L33 
AS00 
1000 .....000e " Traitement 2 
A000 
1500 ..... sisiets " Traitement 3 


Si X n'est pas entier, la partie fractionnaire est arrondie. 
X<0 ou X»>255 provoque une erreur 
Une valeur de X correspondant à un numéro de ligne non 
spécifié provoque un branchement à la ligne qui suit ON (ainsi 
que X=0). 
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11 est possible d'écrire : 


10 ON X GOTO 100, 1000, 1500 ‘pour X=1,2,3 
20 ON X-5 GOTO 200,2500,3000 ‘pour X=6,7,8 
30 PRINT "ERREUR X=";,X:STOP 


ON x GOSUB N° lignel, N° ligne2, N° ligne3,... 


Comme pour ON X GOTO..,..,.., Selon la valeur d'une valeur X 
(ou d'une expression) 1,2,3..., il y a branchement au N° ligne 
1, N° ligne2, N° ligne3,... 


Mais dès qu'une instruction RETURN est rencontrée, il y a 
retour à l'instruction qui suit ON X GOSUB. 
10 ON X GOSUB 100,1000, 1500 
DO sssee " retour en 20 
50 STOP 


3 Le 10 SEA !" Sous-Programme 1 
Oise 
120 RETURN 


1000 .... " Sous-Programme 2 
1010 .... 
1020 RETURN 


1500 ....  Sous-Programme 3 


1510 .... 
1520 RETURN 


Test de conditions au retour d'un sous-programme 


Souvent un sous-programme positionne un indicateur que le 
programme appelant teste au retour. L'utilisation de la 
fonction de branchement multidirections "ON Q GOTO ...,..., 


hs gares est dans ce cas très pratique. 


100 GOSUB 1000:ON Q GOTO 200, 300,400 1000 Sous-programme 


1100 Q=1:RETURN "Tout s'est 
bien passé 
200 TRAITEMENT NORMAL 


1300 Q=2:RETURN ‘Erreur No 1 


300 TRAITEMENT ERREUR No 1 
1400 Q=3:RETURN "Erreur No 2 


400 TRAITEMENT ERREUR No 2 


ON ERROR GOTO ,, - ERR - ERL - RESUME ,, - ERROR .. 
(TRAITEMENT D'ERREURS) 


Dès que survient une erreur pendant l'exécution d'un 
programme et si l'instruction "ON ERROR GOTO n° ligne' a été 
prévue, il y a branchement à un programme d'erreur au N° de 
ligne spécifié dans l'instruction "ON ERROR'. 


Ce programme d'erreur analyse alors l'erreur en testant les 
valeurs de ERR et ERL qui représentent respectivement le code 
erreur et le n° de ligne où s'est produite cette erreur. 
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Après avoir analysé et traité l'erreur, l'instruction 
RESUME permet au programme d'erreur de provoquer un retour au 
programme ou s'était produit l'erreur. 


10 ON ERROR GOTO 100 


20 INPUT "Diviseur? ";X 
30 PRINT 100/X 
4O GOTO 20 


100 IF ERR=11 AND ERL=30 THEN PRINT "Division par ZERO INTERDITE": 
RESUME 20 
110 PRINT "Erreur non reconnue" :STOP 


ON ERROR GOTO O0 


Ecrit dans un programme de traitement d'erreur, il annule 
ON ERROR GOTO N° ligne. L'erreur est donc traitée normalement 
par le système (interruption du programme et message d'erreur) 


RESUME 


Ecrit à la fin d'un programme de traitement d'erreur, 
RESUME spécifie où doit se poursuivre l'exécution du programme: 


RESUME : l'exécution se poursuit au N° de 
OU ligne où s'est produit l'erreur 
RESUME O0 : 
RESUME NEXT : l'exécution se poursuit au N° de 
ligne après celui où s'est produit 
l'erreur 


RESUME N° ligne: permet à l'utilisateur de définir ses 
propres codes erreurs (compris entre 
0 et 255) et de provoquer un branche- 
ERROR ment à ON ERROR GOTO.. comme si une 


ERROR N° erreur: permet à l'utilisateur de définir ses 
propres codes erreurs (compris entre 
0 et 255) et de provoquer un branche- 
ment à ON ERROR GOTO.. comme si une 
erreur avait eu lieu. 


10 ERROR 153 provoque un branchement à ON ERROR 
GOTO .. 


Remarque : "ON ERROR GOTO w° ligne' doit être écrit de préfé- 
rence en tête de programme afin d'être interprétée avant que 
ne survienne une erreur. 


FONCTIONS ARITHMETIQUES 


L'arqument X peut être une constante, une variable ou une 
expression numérique. 


ABS(X) 

Fournit la valeur absolue de X: 

100 PRINT ABS(-35)  ----> > 35 
ATN(X) 


Donne en radians Arctangente de X (résultat entre 
-PI/2 et +PI/2) 
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CDBL(X) 


CINT(X) 


COS (X) 


CSNG(X) 


EXP(X) 


FIX(X) 


FRE(0O) 


INT(X) 


LOG(X) 


RANDOMIZE 


RUN 


LE BASIC ET SES FICHIERS 


Convertit X en un nombre double précision (avec 16 
digits). Elle permet aussi d'effectuer une opération 
en double précision : 


100 FOR I%=1 TO 10 : PRINT 1/CDBL(I®%) :NEXT 1% 


Convertit X en un entier avec arrondi : 


100 PRINT CINT( 1.6)  ------> > 1 
110 PRINT CINT(-1.2) > -2 


(X doit être compris entre -32768 et 32767) 


Donne le Cosinus de X exprimé en radians. 


Convertit X en un nombre simple précision (6 digits) : 
100 X= 1234.56789123:A=CNSG(X=) :PRINT À ----> 1234.57 


Donne l'exponentielle de X. 


Supprime les chiffres après la virgule : 


100 PRINT FIX( 2.2)  ----- > 2 
110 PRINT FIX(-2.2)  ----- > -2 


Donne la place libre en mémoire centrale (l'argu- 
ment 0 n'est pas utilisé) 


Donne la partie entière de X avec arrondi 


100 PRINT INT( 2.2) ------> > 2 
110 PRINT INT(-2.2) ----- > 3 


Fournit le logarithme (naturel) de X 


(n'est pas une fonction) Sans cette instruction, la 
séquence des nombres aléatoires est toujours la même. 


À l'exécution du programme, cette instruction envoie 
un message à l'opérateur pour lui demander un nombre 
qui permet au générateur aléatoire de générer une 
séquence aléatoire non standard. 


10 RANDOMIZE 
20 FOR I=1 TO 5:PRINT RND(1);:NEXT I 


Random Number Seed (0-65529) ? 3 (3 est la reponse de 


l'opérateur) 
.88598 .484668 .586328 .119426 .709225 
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RND(X) 
X>0 ou sans X ——-----> nombre aléatoire suivant. 
X=0 —----> meme nombre aléatoire 
X<0 —----> réinitialise la séquence 
Ex: FOR I1=1 TO S:PRINT INT(RND(1)#100);,:NEXT I 
RUN 
24 30 31 51 1 
Sur TRS80: pour X=>0 et X<1 -----»> nombre aléatoire entre 0 et 1 
X>1 et X<32767 —-> nombre aléatoire entier entre O0 et 32767 
(c'est la partie entière de l'argument qui est considérée) 
SGN(X) 
Donne le signe X : on obtient respectivement -1,0,+1 
pour les valeurs négatives, nulles, positives. 
SIN(X) 
Donne le Sinus de X exprimé en radians. 
SQR(X) 
Donne la racine carrée de X. (X doit être positif) 
TAN(X) 


Donne la tangente de X. 


DEFINITION DE FONCTIONS DEF FN 


En plus des fonctions internes (telles que SQR, SGN, INT, 
etc.), l'utilisateur peut définir ses propres fonctions par : 


DEF FNXX(X,Y,Z,..)=EXPRESSION(X,Y,Z,..) 


où XX représente un nom choisi par l'utilisateur pour identi- 
fier sa fonction (les règles d'appelation sont les mêmes que 
pour les variables) et X,Y,Z,.. les arguments de la fonction. 


(sur certaines versions de BASIC, le nombre d'arguments est 
limité à 2). 


Plus tard, cette fonction sera appelée par le programme 
avec les valeurs réelles des paramètres. 


Exemples 


Fonction d'arrondi 


10 DEF FNAR(X)=INT(X+.5) 
20 A=123.6 

25 B=345.2 

30 PRINT FNAR(A) 

4O PRINT FNAR(B) 


RUN 


124 
345 
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Fonction maximum de 2 nombres 


10 DEF FNMX(X,Y)=-((XDY)#X+(X<=Y)#Y)) 
20 A=15:B=20 LL s'évalue en 0 ou -1 
30 PRINT FNMX(A,B) 
RUN 
20 


Fonction d'arrondi avec décimales 
10 DEF FNAR(X)=INT(X#100+.5)/100 
20 PRINT FNAR(123.456) ---> 123.46 
Remplissage par des caractères à gauche 


10 DEF FNX$(X,RP$)=RIGHT$(STRINGS(6,RP$)+RIGHT$(STR$(X) , LEN(STR$(X))-1),6) 


20 PRINT FNX$(7,"O0") > 0007 
30 PRINT FNX$(7,"@") -----> 6887 


Une fonction ne peut être écrite que sur une seule ligne de 
255 caractères au plus. 


- C'est de préférence en tête de programme que sont écrites 
les fonctions de façon à être interprétées avant qu'elles ne 
soient appelées. 


- Une même fonction (même nom) peut être réinterprêtée 
différemment en cours d'exécution. 


SWAP élément1,élément2 : (version 5.) 


Les valeurs de Elément 1 et de Elément 2 sont échangées. 
Ces éléments doivent être des variables ou des éléments de 
tableaux du même type. 


100 A(1)=10:A(2)=20 
110 PRINT A(1),A(2) 
120 SWAP A(1),A(2) 
130 PRINT A(1),A(2) 


RUN 
10 20 
20 10 
WHILE ... WEND (version 5.) 


WHILE expression logique 


WEND. 


exécute toutes les instructions entre WHILE et WEND tant que 
l'expression logique est vraie (différent de 0). Dès que 
l'expression devient fausse (=0) le programme se poursuit 
après WEND. 


En fait, l'expression spécifiée dans WHILE peut aussi être 
arithmétique. 
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10 INVERSION:=1 


20 WHILE INVERSION><O 


30 INVERSION=0 TNSTAUCTIONS 
ENTRE WHILE ET WEND 

40 FOR 1=1 TO NELEMENT-1 

50 IF A$(I+1)<A$(I) THEN SWAP A$(I),A$(I+1):INVERSION=1 

60 NEXT I 

70 WEND 


L'équivalent de WHILE avec la boucle FOR serait : 


10 FOR I=1 TO INFINI 
20 IF expression=0 THEN GOTO SORTIE 


30 NEXT I 


SORTIES ssssess 


CHAIN - COMMON : (MICROSOFT 5,) (APPEL DE PROGRAMMES) 


CHAIN MERGE nom-programme, n° ligne de branchement, 
ALL, DELETE lignel-ligne2 


Appelle un programme en passant les variables du programme. 
courant. 


100 CHAIN "PAYE" 


Le n° de ligne de branchement (qui peut être une expression) 
représente la ligne où l'exécution du programme appelé com- 
mencera. 

100 CHAIN "PAYE", 1000 


Si ALL est spécifié, toutes les variables du programmes 
appelant sont passées au programme appelé. 


L'option MERGE permet d'appeler un sous-programme qui 
"recouvre" une partie du programme appelant. Le sous-program- 
me appelé doit être sous forme ASCII (voir SAVE et MERGE). 


CHAIN MERGE "PAYE",1000 
Un partie du programme peut également être supprimée par 


DELETE. 
CHAIN "PAYE",1000,DELETE 2000-2500 


(la version compilée de 5. ne supporte pas ALL,MERGE et 
DELETE) 


COMMON liste de variables 


Utilisé conjointement avec CHAIN, COMMON permet de passer 
certaines variables au programme appelé. 


100 COMMON A,B,C,D(),G$8 
110 CHAIN "PAYE",10 


Bien que COMMON puisse apparaître à un endroit quelconque 
du programme, il est préférable de l'écrire en tête de pro- 
gramme pour des raisons de clarté. 
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Une même variable ne doit pas apparaître dans différentes 
instructions COMMON. 


Les tableaux sont spécifiés par () à la suite du nom de 
tableau. 


Si toutes les variables doivent être passées, il faut utiliser 
l'option ALL de CHAIN 


PEEK - POKE : (ACCES DIRECT EN MEMOIRE CENTRALE) 


PEEK et POKE permettent d'accéder directement à la mémoire 
centrale en lecture et en écriture. 


PEEK (adresse) 
Cette fonction fournit le contenu de l'adresse mémoire 
spécifiée (entre 0 et 65536). 


Le résultat qui représente le contenu d'un octet est compris 
entre 0 et 255. 


100 A=PEEK (1000) 
110 PRINT HEXS$ (PEEK(1000)) 
120 PRINT HEX$ (PEEK(&H3E8)) 


POKE adresse, octet 
Range à l'adresse mémoire spécifiée la valeur de l'octet 


(comprise entre 0 et 255) 
200 POKE 1000,122 


INP - OUT - WAÏIT CENTREES-SORTIES) 


INP (numéro de port) 


Lit un octet sur le 'port' spécifié. Le n° de port doit être 
compris entre 0 et 255. 


100 A=INP (255) 


OUT numéro de port, données 


Envoie un octet sur le 'port' spécifié. 'no port' et 
‘données' doivent être compris entre 0 et 255. Ils peuvent 
être des expressions entières. 


200 OUT 32,100 


WAIT numéro de port, masque, sélection 


Suspend l'exécution du programme jusqu'à ce que l'entrée 
d'un port ait un bit particulier positionné à 1. 


- Si 'sélection' est nul, un "'ET' effectué entre l'entrée du 
port et 'masque' fournit un résultat qui, s'il est égal à 
zéro, provoque un retour à l'instruction WAIT qui s'exécute à 
nouveau. 


- Si au contraire, le résultat est différent de zéro, l'exé- 
cution de WAIT se termine. L'exécution du programme se 
poursuit. 
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Pour 'sélection' différent de zéro, un "OU exclusif' est 
d'abord effectué entre l'entrée du port et 'sélection' puis 
un 'ET' est effectué entre le résultat obtenu et "'masque'. 


10 WAIT 22,4 suspend l'exécution jusqu'à ce que 
le troisième bit (2 puissance 2) du 
port 22 soit positionné à 1 


10 WAIT 22,7 suspend l'exécution jusqu'à ce que 
l'un des 3 premiers bits soit 
positionné à un. 
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10! IMPRESSION D'UN TABLEAU 2 DIMENSIONS 

20 ! == 

30 ‘ 

HO DATA "FLINS ","CLEON  ",BILLANCOURT,"SANDOUVILLE" ,"DOUAI " ,"ORLEANS": 


FOR 1=1 TO 6:READ USINES$(I):NEXT I 
50 DATA R5,R6,R12,R18,R20,R30,RUO:FOR 1=1 TO 7:READ TYPE$(I):NEXT I 


60 DIM STOCK(7,6) 7 types et 6 usines 
70 ! 
80 ’ Saisie Tableau 


90 STOCK(1,1)=52:STOCK(1,2)=79:STOCK(1,3)=87:STOCK(2,2)=99:STOCK(2,5)=119 
O0 


110 ! Impression titre USINES 

120 FOR 1=1 TO 5 

130  LPRINT TAB(15+10) TABLE USINES 
U , 

190 FOR J21 70 6 usiwef te [ETLT [nfs | 

160 X$=MID$(USINES$(J),1,1):LPRINT X$;" "3;  VSINE? U) 

170  NEXT J USINES G) 

180 ! 

190  LPRINT lol 

one osmsstolo [ele [e [a 


240 ! Impression du tableau STOCK 
250 FOR TYPE=1 TO 7 

260 LPRINT TAB(15) TYPE$(TYPE); TAB(15+6) 

270 TTYPE=0 


280 ! 

290 FOR USINE=1 TO 6 

300 IF STOCK(TYPE,USINE)><O THEN LPRINT USING "##4##4" ; STOCK(TYPE , USINE) ; 
ELSE  LPRINT " Bu 

310 TTYPE=TTYPE+STOCK(TYPE , USINE) 

320 CUMUL(USINE ) =CUMUL (USINE }+STOCK(TYPE ,USINE) 

330 NEXT USINE 

340 ! 


350 LPRINT USING "##{#fif#f" ; TTYPE 

360 NEXT TYPE 

370 ‘ 

380 LPRINT:LPRINT TAB(15+6) 

390 ! 

400 FOR USINE=1 TO 6 

410  LPRINT USING "#####"; CUMUL (USINE ); 
420 NEXT USINE 


430 

F € B S D 0 

L L I A (0) R 

I E L N U L 

N (0) L D A E 

S N A (o) I A 
R5 52 79 87 . . . 218 
R6 . 99 . . 119 . 218 
R12 . : . B . . 0 
R18 . . . . . . 0 
R20 . . . . . . 0 
R30 . . . . . . 0 
R4O ‘ . ‘ . . . 0 


52 178 87 0 119 0 
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RECHERCHE DICHOTOMIQUE (insertion+éléments égaux) 


.La dichotomie consiste lorsqu'on recherche un élément dans une 
suite ordonnée ,à le comparer à l'élément du milieu de cette 
suite afin de SELECTER la MOITIE où il se trouve. 

.On procède de la même fapon sur la moitié sélectée et après 
quelques comparaisons l'élément cherché est retrouvé. 

(s'il n'existe pas ,on obtient la position d'insertion) 

(Si plusieurs €6léments sont égaux ,ce programme donne le ler ) 


INFERIEUR —-> 2 


| 2 | 
Elément cherché | 6 | 
MILIEU > 


SUPERIEUR ----» 


TAILLE =10 
FOR I=1 TO TAILLE:A(I)=2#I:NEXT I " Remplissage d'une table 


INPUT "Nombre cherché? ";NCHERCHE 


GOSUB 370:ON Q GOTO 320,330 " Résultat ---> NLIGNE 
PRINT "Elément trouvé en :";NLIGNE:GOTO 290 " Elément trouvé: Q=1 
PRINT "Elément non trouvé" ;NLIGNE:GOTO 290 * Elément non trouvé :Q=2 


INFERIEUR=1:SUPERIEUR=TAILLE 

' 

IF INFERIEUR>SUPERIEUR THEN Q=2:NLIGNE=MILIEU:IF NCHERCHE>A(NLIGNE) THEN 
NLIGNE=NLIGNE+1:RETURN ELSE RETURN ! Elément non trouvé 

MILIEU=INT((INFERIEUR+SUPERIEUR )/2) 


IF NCHERCHE=A(MILIEU) THEN 
IF ACMILIEU-1)><A(MILIEU) THEN Q=1:NLIGNE=MILIEU:RETURN 
ELSE SUPERIEUR=MILIEU-1:GOTO 390 " Elément trouvé 


IF NCHERCHE<A(MILIEU) THEN SUPERIEUR=MILIEU-1:GOTO 390 
IF NCHERCHE>A(MILIEU) THEN INFERIEUR=MILIEU+1:GOTO 390 


run 


Nombre cherche? 4 
Elément trouvé en: 2 


Nombre cherché? 5 
Elément non trouvé:3 
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10 
20 
30 
40 
50 
60 
70 DIM TX(20) 

80 

90 ' Remplissage d'une table par des nombres aléatoires 

pour tester le programme 


RECHERCHE AUTOMATIQUE D'ECHELLE pour HISTOGRAMME 


Ce programme permet d'obtenir un histogramme sans que l'échelle soit 
prévue à l'avance. 


100 
110 FOR 1=1 TO 15:TX(I)=INT(RND(1)#20):LPRINT USING "###";TX(I);:NEXT I 
20 


130 FOR I=1 TO 15 " Recherche du plus grand 
140 IF TX(I)>PLUSGRAND THEN PLUSGRAND=TX(I) 
150 NEXT I 
160 ! 
170 ECH= 10/PLUSGRAND " Taille max=10 
180 ECH=INT(ECH#8)/8 " Ech mini .125 
290 
200 " Edition 
210 LPRINT:LPRINT: LPRINT "Histogramme ":LPRINT "" 
220 ! 
230 FOR J-10 TO 1 STEP-1 
240 ! 
250 FOR I=1 TO 15 
260 IF TX(I)#ECH=>J THEN LPRINT " #"; ELSE LPRINT "  "; 
270 NEXT I 
280 
290 LPRINT "" 
300 NEXT J 
310 
320 LPRINT "":FOR I=1 TO 15:LPRINT USING "###";I;:NEXT I: 
LPRINT " Echelle:";ECH 
330 END 
340 ! 


4 6 610 115 9 7 19 18 14 O0 19 O 19 


Histogramme 


* 
M OK OM M M M OK M 


x = x 
XX M NX 
«x « 

ON M M OM M MN  % 
M NN M M % 

M OM ON M M M % % 
RME X NON 


123 4 5 6 7 8 91011 12 13 14 15 Echelle: .5 
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TRI par la METHODE de SHELL 


.La comparaison ne s'effectue pas entre 2 nombres consécutifs comme 
pour ‘ripple sort' mais entre 2 nombres séparés par un ‘pas' égal au 
départ à la moitié de la taille de la table à trier. 

.Ce pas est successivement divisé par 2. 

.Le tri s'achève avec un pas de 1 (comme pour ‘ripple sort'). 


' .Dès que le nombre de nombres à trier devient supérieur à 50, cette 
, méthode est plus rapide que celle du 'ripple'. 

L 

INPUT "Taille? ";TAILLE 

DIM NOMB(TAILLE) 

L 


FOR 1=1" TO TAILLE :NOMB(I)=RND(1):NEXT I " Remplissage d'une table 

' de nombres aléatoires 

GOSUB 280:FOR I=1 TO TAILLE:PRINT NOMB(I):NEXT I 

LPRINT "Taille:";TAILLE; TAB(20)" Il y a eu :";C; 
TAB(4O)"Comparaisons et ";V;"Inversions" 


9876543210 


Inverser 


PAS=TAILLE 
L 


PAS=INT(PAS/2):1IF PAS<1 THEN RETURN 
INVERSION=0 
LU 


FOR 1=1 TO TAILLE-PAS 


C=C+1 ! Compteur de comparaisons 
N=1+PAS:1IF NOMB(I)>NOMB(N) THEN 
SWAP NOMB(I) ,NOMB(N) : INVERSION=1:V=V+1 
NEXT I 
' 
IF INVERSION=1 THEN GOTO 310 ELSE GOTO 300 " On recommence 


jusqu'à ce qu'il 
n'y ait plus d'inversion 


LU 
U 
LASER ER EP RATE ASP SERRE REP ERES SE SR TE E RRREERREECREE PSRTE 
L 
' SHELL RIPPLE 
LU 
" Taille : Comparaisons Inversions ; Comparaisons Inversions 
L 1 ! 
1 ' 
10 i y7 8 i 45 19 
: 20 i 230 39 i 190 104 
! 50 i 1010 180 ' 1170 642 
‘100 1 3382 515 ' 4914 2657 
" 200 ' 6791 1035 i 19669 10541 
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[lème Partie 


Les fichiers 
en BASIC Microsoft 


LE BASIC ET SES FICHIERS 


CHAPITRE 2-1 
FICHIERS À ACCES DIRECT (random) 


OPEN 

FIELD # 

PUT # LSET RSET,.GET# 
MKIS$ MKD$ -CVI CVS CVD 
CLOSE 

LOC LOF 


Les fichiers permettent de mémoriser des informations qui 
peuvent être ensuite consultées ou modifiées. Les supports 
de ces fichiers sont généralement magnétiques (bande ou 
disque). 


Une disquette est composée de plusieurs pistes (35 pour les 
minidisquettes de 5 pouces 1/2 ou 77 pour disquettes 8 pouces), 
chacune de ces pistes étant découpée en plusieurs "secteurs" 
(10 pour les minidisquettes ou 26 pour les disquettes). 


Chaque secteur (128 ou 256 caractères) a une “adresse 
physique" 


(Numéro piste, Numéro secteur à l'intérieur de la 
piste) 


L'accès à un secteur se fait d'abord en positionnant di- 
rectement la tête de lecture/écriture sur la piste cherchée 
puis en recherchant le secteur à l'intérieur de la piste. 


On parle dans ce cas d'accès et d'organisation directs, 
bien que la recherche à l'intérieur d'une piste soit séquen- 
tielle. Le programmeur ne connaît qu'un numéro d'ordre 
d'enregistrement à l'intérieur d'un fichier. C'est le 
logiciel-système qui assure la correspondance avec l'adresse 
physique d'un secteur par un calcul. 


Les anciennes versions de BASIC ne proposaient que des 
enregistrements de longueur fixe (128 ou 256 c.). Maintenant, 
le programmeur peut définir la longueur des enregistrements 
qui est la même pour tous ceux d'un fichier. 


L'avantage des fichiers à accès direct sur les fichiers 
séquentiels est de permettre des consultations et des mises à 
jour immédiates (en "temps réel"). 
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TETE DE LECTURE/ECRITURE MOBILE 


ROTATION 
en A6 ms 


428 ou 256 OÙ VARTABLE * 


MEMOIRE TAMPON (SUFFER) 


PUT : ECRITURE # ALB XxA 


DTC MiCROFILE 
GET: LECTURE #* 256  TRSSO NEw Dos 


% VARIABLES MICROSOFT 5, 


Fichier A ACCES DIRECT 


OPEN 


L'accès aux informations d'un fichier ne peut se faire que 
s'il est ouvert. L'instruction OPEN, en ouvrant un fichier, 
lui affecte une mémoire tampon (buffer) où transiteront les 
informations au cours des opérations de lecture et d'écriture 
dans ce fichier. 


OPEN "R",#nofichier,"U:nom fichier",longueur enregistrement 
€-MICROSOFT 5. (ou U=A,B,C,....) représente l'unité 
de disquette (A par défaut) 
OPEN "R",#no fichier,"nom fichier : no unité" 
€-sur TRS80 NEWDOS (no unité=0 par défaut) 


‘R' spécifie le type de fichier (RANDOM). Ce type peut être 
spécifié par une expression du type chaîne. 
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‘no fichier' qui représente en fait le numéro du buffer 
attribué au fichier ouvert, servira dans la suite du programme 
à référencer ce fichier. 


l'U:nom fichier' peut aussi être spécifié par une expression 
du type chaîne ("U:"+NFS par ex) 


"longueur enregistrement" qui peut être définie par une 
expression entière, est de 128 par défaut pour la version 5. 


A 10 OPEN "R",#1,"CLIENT",200 


B 10 INPUT "Nom de fichier? ";NF$ 
20 OPEN "R",#1,NF$,64 
L'instruction OPEN de l'exemple À ouvre le fichier "CLIENT" 
sous le n° 1 (lui attribue le buffer n° 1) et affecte une 
longueur de 200 à ses enregistrements. 


Avec Microsoft 5. la longueur maxi des enregistrements 
(128 par défaut) et le nombre de fichiers ouverts maxi (3 par 
défaut) sont définis au moment de l'appel de BASIC : 


>MBASIC /S:Longueur maxi enregistrement /F:Nombre de fichiers 


Un même fichier peut être ouvert avec des numéros différents. 
Dans ce cas il lui est affecté un BUFFER par numéro. (Voir 
ouverture multiple). 


FIELD #No fichier, longueurl AS varlg,longueur2 AS var28,.... 
(DESCRIPTION DES ZONES) 


Un fichier à accès direct est composé d'enregistfements ré- 
férencés par des numéros. Chacun de ces enregistrements est 
lui-même compose de zones dont les longueurs sont définies 
par une instruction FIELD (champ) : 


FIELD #No fichier,longueur1 AS var1g,longueur2 AS var2$8,.... 


Cette instruction FIELD positionne les zones à l'intérieur 
d'un enregistrement dans l'orûäre de leur description en leur 
réservant les longueurs spécifiées. Elle n'est généralement 
programmée qu'une fois, après l'OPEN par exemple. 


20 FIELD #1,15 AS NOM$,10 AS PRENOM$,25 AS RUEÿ,15 AS VILLE$,4 AS CPOST$ 


15 caractères sont réservés pour le nom 

10 caractères sont réservés pour le prénom 

25 caractères sont réservés pour la rue 

15 caractères sont réservés pour la ville 

5 caractères sont réservés pour le code postal. 


15 10 25 4 
[puronr ] JEAN IE rue de SEVRES [ 92109 \ 
NOM$ PRENOM$ RUE$ CPOST$ 


Le programmeur n'a accès, pour un fichier et par buffer, 
qu'à un seul enregistrement à la fois. 
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PUT#No fichier,No enregistrement (Ecriture) | SET - RSET 


Avant d'écrire dans un enregistrement par une instruction 
"PUT#no fichier, no enregistrement", on affecte aux diffé- 
rentes zones de la mémoire tampon du fichier (buffer) les 
différentes valeurs qu'elles doivent avoir par l'instruction 
LSET : 


LSET variable définie dans field=expression chaîne de caractères 


10 INPUT "Nom? ";X$ 
20 LSET NOM$=X$ ‘ Transfere X$ dans NOM$ 


30 INPUT "Prenom? ";X$ 
40 LSET PRENS$=X$ 


100 PUT #1,no enregistrement * Ecriture dans le fichier 


LSET signifie que la valeur est cadrée à gauche dans la zone 
(RSET cadre à droite). Les positions non occupées dans la zone 
sont complétées par des espaces (codes ASCII=32) : par ex. 
LSET N$="DUPONT" range ‘"DUPONT' dans N$ en complétant par 
9=(15-6) espaces à droite si la longueur de N$ prévue est de 
15. 


Attention : Les variables définies dans le FIELD ne sont pas 
utilisables comme les autres variables : ne pas faire INPUT 
"Nom?";NOMS si NOMS a été définie dans FIELD. 


Si des zones ne se voient pas attribuer de valeur à la saisie, il 
convient de procéder à leur initialisation. Sinon elles 
prendraient, pour l'enregistrement créé, les valeurs présentes 
dans le buffer au moment de la création. (C'est-à-dire celles 
de l'enregistrement précédemment lu ou écrit). 


Uniquement pour enregistrement de longueur fixe (128 ou 256) 
(pour MICROSOFT 5., voir LOF - LOC) 


Le plus simple est de lire avant la saisie un enregistrement 
qui n'a pas encore été créé : GET#1,LOF(l1)+1. Le buffer est 
ainsi initialisé avec des valeurs nulles (codes ASCII=0) 


5 GET #1,LOF(1)+1 * Initialisation du buffer 

‘ avec des valeurs ASCII NULLES 
10 INPUT "Nom? ";X$ 
20 LSET NOM$=X$ 


100 PUT #1,N0 ENREGISTREMENT 


Attention : Sur TRS80, si l'enregistrement N°100 par ex. est 
créé dans un fichier vide, les 99 enregistrements précédents 
sont eux aussi créés avec des valeurs quelconques à 
l'intérieur. 


Numéros d'enregistrements 


MICROSOFT 5. 1 à 32767 
TRS80 .......... 1 à 355 
DTC MICROFILE .. 0 à 4095 


Si le n° d'enregistrement n'est pas précisé dans l'instruc- 
tion PUT, il y a écriture dans l'enregistrement immédiatement 
après l'enregistrement courant. 
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GET#N° fichier, N° enregistrement (LECTURE) 


La lecture d'un enregistrement en mémoire centrale (dans le 
buffer prévu) se fait par : 


GET # N° Fichier,N° enregistrement 


Toutes les valeurs des différentes zones de l'enregistrement 
lu sont alors disponibles dans le buffer. On peut faire par 
exemple : 


PRINT NOMS ,PRENS , RUES 


Si le numéro d'enregistrement n'est pas précisé dans GET, c'est 
l'enregistrement immédiatement après l'enregistrement courant 
qui est lu. 


MODIFICATION DE ZONES 


Pour modifier une zone d'un enregistrement, celui-ci doit 
d'abord être lu en mémoire centrale. La nouvelle valeur est 
ensuite affectée à la zone et enfin l'enregistrement est 
réécrit. 


10 GET #1,X * Lecture en mémoire centrale 
20 LSET VILLE$="PARIS" ‘ Modification d'une ZONE 
30 PUT #1,X " Réécriture dans le fichier 


TYPES DE ZONES NUMERIQUES : MKIZ - MKS8 - MKD3 - CVI - CVS - CVD 


Ne peuvent être définies dans un "FIELD' que des chaînes de 
caractères. Les variables numériques doivent être transformées 
et compactées sous forme de chaînes de caractères de la façon 
suivante : 


LSET variable définie dans field=MKx$ (expression numérique) 


avec x=I pour variable entière (integer) 
x=S pour variable simple précision 
x=D pour variable double précision 


10 INPUT "Code Postal? ";CPOST 

20 LSET CPOST$=MKS$(CPOST) ‘ Si CPOST est un nombre en simple 
" précision 

30 PUT #1,X 


À la lecture la conversion inverse sera réalisée par CVx 
(variable définie dans field) : 


50 GET #1,X 
60 CPOST=CVS(CPOST$) 
70 PRINT CPOST 


Selon les valeurs numériques, les fonctions de conversions et 
les réservations dans le FIELD sont : 


1 --»> 256 LSET X$=CHR$(X) 1 CARACT X=ASC(X$) 

-32768 --> +32767 LSET X$=MKIS$(X) 2 CARACT X=CVI(X$) 

simple precision LSET X$=MKS$(X) 4 CARACT X=CVS(X$) 

double precision LSET X$=MKD$(X) 8 CARACT X=CVD(X$) 
ECRITURE RESERVATION LECTURE 


dans FIELD # 
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Définition de structures multiples 
Piusieurs structures pour un même enregistrement peuvent 
être définies simultanément : 


10 FIELD #1,15 AS NOM$, 10 AS PREN$, 25 AS RUE$,15 AS VILLE$,... 
20 FIELD #1,15 AS ZN$(1),10 AS ZN$(2),25 AS ZN$(3),..... 
30 FIELD #1,25 AS NP$ , 40 AS ADR$ ss... 


- Le NOM est connu à la fois sous les noms de "NOMS' et de 
"ZNg(1)' Ainsi, on accède aux différentes zones soit par un 
indice (lors d'une saisie par ex.) soit par un nom propre 
(pour une édition). 


- NPS$ représente la réunion du NOM et du PRENOM,ADR& la 
réunion de la RUE et de la VILLE. 


(L'instruction FIELD définissant des pointeurs internes vers 
les adresses des zones du buffer, plusieurs pointeurs peuvent 
être définis vers une même adresse). 


Rien n'empêche de faire chevaucher une table sur 2 buffers. 
Avec la version 5., une instruction FIELD écrite sans 


ouverture de fichier permet de définir une structure sur une 
chaîne de caractères. 


Ecriture condensée 


Si tous les éléments d'une table ont la même longueur, la 
définition des zones se condense par exemple de la façon 
suivante : 


5 caractères sont réservés pour chaque zone. 


5 5 5 


10 FOR I=1 TO 10 
20 FIELD #1,(1-1)#5 AS D$,5 AS ZONES$(I) 
30 NEXT I 


La variable D$ n'est utilisée que pour positionner les diffé- 
rentes zones dans le buffer. 


Définition de plusieurs tables 
2 tables A8 et B$ sont définies. 
3 2 3 2 


10 FOR I=1 TO 10 
20 FIELD #1,(1-1)#5 AS D$,3 AS A$(I),2 AS B$(I) 
30 NEXT I 

Enregistrements logiques 


Le découpage d'une enregistrement physique en plusieurs 
enregistrements logiques, lorsque la longueur des enregistre- 
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ments n'a pu être choisie, peut être fait par exemple de la 
manière suivante : 


Position 
No 1 No 2 No 3 


Si NLOGIQUE est le numéro d'enregistement logique, le n° d'en- 
registrement physique et la position de l'enregistrement 
logique dans celui-ci sont donnés par : 


NPHYSIQUE=INT (NLOGIQUE/3)+1 " 3 enregistrements logiques 
POSITION =NLOGIQUE MOD 3 " par enregistrement physique 


NLOGIQUE=8 --> NPHYSIQUE=INT(8/3)+1=3 POSITION=8 MOD 3=2 


La définition des variables à l'intérieur d'un enregistre- 
ment logique peut être faite dynamiquement par : 


500 POSITION= ( 1,2 ou 3) :GOSUB 1000 " POSITION:position dans 
* l'enregistrement physique 
510 GET #1,X 
520 LSET NOM$="DUPONT" 
530 PUT #1,X 
540 STOP 


1000 FIELD #1,(POSITION-1)#85 AS D$,12 AS NOM$,10 AS PREN$,......:RETURN 


Chaque nom de variable est affecté à l'un des 3 enregistre- 
ments logiques possibles. L'instruction FIELD# doit bien sûr 
être exécutée à chaque fois que l'on change d'enregistrement 
logique. 


ATTENTION : L'instruction FIELD est longue à exécuter si 
beaucoup de variables y sont définies. 


Autre solution : Seules sont définies dans le buffer, les 
zones du premier enregistrement logique. Pour effectuer une 
mise à jour sur le second enregistrement logique, il faut, 
après lecture de l'enregistrement physique, sauvegarder le 
premier enregistrement logique, transférer la seconde moitié 
du buffer dans la première, effectuer les mises à jour, 
transférer la première moitié du buffer dans la seconde et 
enfin, restituer à la première moitié du buffer ses valeurs 
initiales. L'enregistrement physique peut alors être réécrit. 


10 FIELD #1,12 as NOM$,10 as PREN$,..... 
20 FIELD #1,128 as E1$,128 as E2$ " 2 enregistrements logiques 


30 POSITION=1 ou 2 :GET #1,X 
4O IF POSITION=2 THEN SAUV$=E1$:LSET E1$-E2$ 
50 LSET NOM$="DUPONT" 


60 IF POSITION=2 THEN LSET E2$=E1$:LSET E1$=SAUVS$ 
100 PUT #1,X 


Ouvertures multiples d'un même fichier 


L'ouverture d'un fichier sous plusieurs numéros permet de 
lui attribuer plusieurs buffers et ainsi de disposer éventuel- 
lement d'autant d'enregistrements du même fichier en mémoire 
centrale. 
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Lorsqu'elle existe, c'est avec prudence que l'on profitera 
de cette possibilité. On n'utilisera qu'un seul N° de fichier 
pour les CREATIONS, l'autre ne servant que pour les consulta- 
tions ou modifications d'enregistrements déjà existants. Ce 
dernier numéro de fichier ne sera pas clos (le bloc de contrôle 
à jour serait écrasé). 


En 5. un même fichier peut être ouvert indifféremment en 
accès direct ou en séquentiel et simultanément sous des numé- 
ros différents. 


CLOSE#N°FICHIER.#N°FICHIER,... 


Clot le fichier spécifié et libère le buffer qui lui était 
alloué. 


Un bloc de contrôle pour chaque fichier, amené en mémoire 
centrale au moment de l'OPEN, qui contient notamment des 
pointeurs vers les différents enregistrements du fichier est 
bien sûr mis à jour en mémoire centrale à chaque création 
d'enregistrement. 


Mais sur certains systèmes (tels que le TRS80), c'est 
seulement la fermeture du fichier qui provoque la sauvegarde 
sur disque de ce bloc de contrôle. On prendra donc soin, sur 
TRS80, de clore les fichiers en fin de session. 


Une méthode, pour s'affranchir de cette contrainte, consiste 
à créer l'enregistrement de N° le plus élevé puis à clore le 
fichier. Par la suite, les pointeurs (systèmes) vers les 
enregistrements ayant été créés, la fermeture des fichiers ne 
sera plus nécessaire. Mais dans ce cas, l'avantage de l'alloca- 


tion dynamique de la place sur disque est, bien entendu, perdu. 
CLOSE #1,#2 


END et NEW ferment les fichiers. 


LOF - LOC : (POUR ENREGISTREMENTS DE LONGUEUR FIXE 128 ou 256) 


LOF (N° fichier) 


Permet de connaître le N° du dernier enregistrement dans le 
fichier (le n° le plus élevé) et ainsi d'allouer un enregistre- 
ment lors d'une création. 


100 ARANG=LOF(1)+1 
110 GET #1,ARANG 
120 LSET N$="DUPONT" 


200 PUT #1,ARANG 


Selon les BASICS, LOF représente le numéro de l'enregistrement 
occupé de rang le plus élevé ou ce numéro+l (DTC MICROFILE). 


LOC (N° fichier) 


Représente le N° du dernier enregistrement+l qui a été 
référencé. (en écriture ou lecture) 
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Remarque : Les instructions d'entrées/sorties avec les fichiers 
sont exécutables en mode direct. Ceci est utile au moment de 
la mise au point. 


GET #1,3 
PRINT N$ 


DUPONT 
OK 


LSET N$="XXXX" 
PUT #1,3 


LOF (N° fichier) : MICROSOFT 5. 


LOF indique le nombre de blocs de 128 octets utilisés dans 
l'extent le plus récemment référencé en lecture ou en écriture 
(1 extent=128#128 octets). Un bloc de 128 partiellement 
occupé est compté comme utilisé. 


Avec des enregistrements de longueur 128 et pour un fichier 
de taille inférieure à un extent, LOF représente bien le 
nombre d'enregistrements utilisés, mais seulement dans ce cas. 


Comment donc allouer un enregistrement au moment d'une 
création ? 


- On peut gérer soi-même un compteur d'enregistrements occu- 
pés, sauvegardé dans l'enregistrement N° 1 par exemple : 


10 OPEN "R",1,"XX",50 
20 FIELD #1,.....description des zones... 
30 FIELD #1,2 AS LOF$ 


4O GET #1,1:COMPTEUR=CVI(LOF$):IF COMPTEUR<2 THEN COMPTEUR=2 


Saisie 


110 PUT. #1,COMPTEUR : COMPTEUR=COMPTEUR+1 
120 LSET LOF $=MKI $(COMPTEUR) : PUT #1,1 " Sauvegarde compteur 


- On peut également gérer une BIT-MAP d'occupation fichier 


qui permet en plus l'allocation dynamique des enregistrements 
(voir allocation dynamique). 


LOF (N° fichier) TRS VTOS 


LOF indique le nombre de blocs (de 256 octets) utilisés et 
ne représente donc le nombre d'enregistrements du fichier que 
si ceux-ci ont une longueur de 256. 


EOF (N° fichier) 


(5.) est égale à -1 si on référence en lecture un enregis- 
trement au-delà des blocs de 128 octets déjà attribués. 


Erreurs classiques 


Ces 'erreurs' sont d'autant plus ennuyeuses qu'elles ne sont 
pas détectées comme erreurs par BASIC. 
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- Oubli de LSET avant PUT. On ne retrouve donc pas ensuite à 
la lecture ce que l'on croit avoir écrit dans le fichier. 


- (Pour vérifier ce qui a été effectivement écrit dans un enre- 
gistrement, le relire par GET# .. en mode DIRECT après l'exé- 
cution de PUT#..) 


- Utilisation dans une instruction "INPUT' d'une variable 
précédemment définie dans un "FIELD'. Celle-ci se trouve alors 
désallouée du buffer correspondant. 


— Une même variable a été utilisée dans plusieurs FIELD. Elle 
n'est affectée en réalité qu'au dernier FIELD exécuté. 


- Chevauchement (sans le vouloir) des zones. (par des FIELD#.. 
multiples). 


— On ne lit pas les informations suivant le type où elles ont 
été rangées. (par exemple une information écrite par MKIS doit 
être convertie à la lecture par CVI). 


- Oubli de GET# avant la modification d'une zone d'un enregis- 
trement. La zone modifiée est bien retrouvée mais toutes les 
autres contiennent les valeurs de l'enregistrement présent 
dans le buffer au moment de la mise à jour. 
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PRINT "ARAND le 23.10.79":PRINT 


FICHIERS A ACCES DIRECT (RANDOM) CREATION, CONSULTATION ,MODIF ICATION 


LES FICHIERS PERMETTENT DE CONSERVER DES INFORMATIONS 
(LES TABLES N'ETANT QUE DES MEMOIRES DE TRAVAIL) 


1 ; DUPONT JEAN 1955-06-46 1 <----- ENREGISTREMENT 1 
AU CR Re 
SE NL. 4 

ENG TN “UE és ZONES 


REM 1) OUVERTURE DU FICHIER (OPEN) 

REM 2) DESCRIPTION DES ZONES DES ENREGISTREMENTS (FIELD # ...) 

REM 3) ECRITURE CPUT #....) 

LU 

OPEN "R'",1,"CLIEN" " Ouverture du fichier 'CLIEN' sous le no 1 
FIELD #1,10 AS N$,8 AS PN$,20 AS TL$,4 AS MT$ " Definition des zones 
' 

PRINT:INPUT " Mode? (CREAT,CONS,MODI,RN,FIN,LIST) ";MODE$ 


' 

IF MODE$="CREAT" THEN GOSUB 420 

IF MODE$="RN" THEN GOSUB 830 

IF MODE$="LIST" THEN GOSUB 960 

IF MODE$="CONS" THEN GOSUB 590 

IF MODE$="FIN" THEN CLOSE #1:STOP 
IF MODE$="MODI" THEN GOSUB 700 " Modification d'un enregistrement 
GOTO 320 

U 


Création d'un enregistrement 
Recherche d'un nom 

Liste du fichier 

Recherche enregistrement par un no 


! CREATION 
ARANG=LOF(1):GET #1,ARANG ‘ Ajout en fin de fichier=====2= 
PRINT:INPUT "Nom? ";NOM$ " Entrer le NOM 

IF NOM$-="" GOTO 560 " Fin de mode? 

LSET N$=NOM$ * Transfert de NOM$ DANS N$ 

' 


INPUT "Prenom? ";PR$ 
LSET PN$=PR$ 
L 


Transfert de PR$ dans PN$ 


INPUT "Telephone? ";TEL$:LSET TL$-TEL$ 

INPUT "Matricule? ";MAT:LSET MT$-MKS$(MAT) 

! 

PUT #1,ARANG " Ecriture dans le fichier no 1 
' * dans enregistrement no ARANG 
PRINT:PRINT TAB(30) "J'ai range votre NOM en:";ARANG: PRINT 

GOTO 420 

RETURN 


PRINT:INPUT "Quel enregistrement cherchez vous? ";X ! CONSULTATION 
IF X=0 GOTO 640 2========2=2== 
GET #1,X 

PRINT:PRINT N$,PN$,TL$,CVS(MT$) " Impression des zones 

GOTO 590 

RETURN 
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PRINT:INPUT "Quel ENREGISTREMENT voulez-vous modifier? ";ARANG: 
IF ARANG=0 GOTO 790 


L 
GET #1,ARANG MODIFICATION 
PRINT , 222222222222 
PRINT USING "\ Ans N$;:INPUT X$:1IF X$><"" THEN LSET N$=X$ 
PRINT USING "\ \AMSPN$;:INPUT X$:1IF X$><"" THEN LSET PN$=X$ 
PRINT USING " HHHHHHMCVS(MT$); : INPUT X: 
IF X><O THEN LSET MT$=MKS$(X) 
PUT #1,ARANG " Réécriture 
GOTO 700 
RETURN 
lssosansssesssssmssrsssencsssssssscsssmmtcussosess estonien 
Û RECHERCHE PAR NOM 
PRINT:INPUT " NOM cherché? ";X$:IF X$="" GOTO 930 ' zaszn22222222522: 
FF=LOF(1)-1 ' FF=fin de fichier 
L 
FOR 1=1 TO FF " Lecture de tout le fichier 
GET #1,1 
IF X$=LEFT$(N$,LEN(X$)) THEN I=FF:NEXT I:GOTO 910 
NEXT I 
! 
PRINT:PRINT " N'existe pas":PRINT:GOTO 830 
L 
PRINT:PRINT N$,PN$,TL$,CVS(MT$) " Le nom est trouvé 
GOTO 830 
RETURN 
mms smmtsnémsoméémediatoms semis ns dntsettsséimésstandiés sie déasae 
! LISTE DU FICHIER 
PRINT:PRINT " LISTE DU FICHIER": PRINT * 2sz22sz2222222222 
L 
FOR I1=1 TO LOF(1)-1 
GET #1,1 
IF ASC(N$)=0 GOTO 1020 * Enregistrement vide? 
PRINT N$,PN$,TL$,CVS(MT$) 
NEXT I 
LU 
RETURN 
ln sasssssosemsommoncaesscimsmesenm sn chÉNENSeupet een mrrniteel entente mm Set 
: .Avec MICROSOFT 5. voir LOF: 
' 
L .SUR TRS80 NEWDOS: 
! CLEAR(3000) 
, REMPLACER LOF(1) par LOF(1)+1 
‘ Avant INPUT "xxxx? ";X$ faire X$="" 
' OPEN "R","TOTO:1" (pour unité No 1) 
! PENSER à CLORE les FICHIERS 
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CHAPITRE 2-2 
FICHIERS SEQUENTIELS 


-OPEN PRINT # INPUT # 
PRINT # USING 

.LINE INPUT # 

.WRITE # 

.CLOSE  EOF 

. LOF 

- INPUT$ 


Le stockage d'informations s'y fait en fin de fichier au 
fur et à mesure des arrivées. Une information particulière ne 
pouvant y être ensuite retrouvée qu'après avoir lu toutes les 
précédentes (accès séquentiel), leur organisation est dite 
séquentielle. Les instructions d'écriture et de lecture sont 
analogues à celles de l'impression et de la lecture au 
clavier. (PRINT - INPUT). 


Dans le cas le plus simple, les ENREGISTREMENTS sont séparés, 
de façon interne et donc transparente à l'utilisateur, par des 
caractères "Carriage Return' (Retour chariot) et "Line Feed 
(saut de ligne) (Codes ASCII 13 et 10). 


OPEN 


Un fichier séquentiel sur disque avec Microsoft 5. est 
ouvert soit en sortie (écriture), soit en entrée (lecture) : 


OPEN "O0 ou I",#WNo fichier,"U:Nom fichier" (U=A,B,C,.. 
représente l'unité 
de disque) 

0 : OUTPUT (ECRITURE) 
I : INPUT (LECTURE) 


10 OPEN "O0",#1,"A:TOTUS"<— MICROSOFT 5. 
10 OPEN "O",#1,"TOTUS:1"<— sur TRS80 NEWDOS 


Attention ! avec Microsoft 5., l'ouverture d'un fichier en 
OUTPUT l'initialise à zéro. 
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CHAINES DE CARACTERES 


PRINT#-INPUT# 
Dans le cas le plus simple, l'écriture dans un fichier 
séquentiel se fait par : 
PRINT#no fichier,variable 


Si l'utilisateur programme : 


90 INPUT "Nom,Telephone ? ";NOM$,TPH$ 
130 PRINT #1,NOM$ 
140 PRINT #1,TPH$ 


il y a écriture de 2 enregistrements qui seront lus par : 
INPUT#no fichier,variable 


220 INPUT #1,N0M$ 
230 INPUT #1,TPH$ 
250 PRINT NOM$,TP4$ 


Plusieurs enregistrements peuvent être lus simultanément en 
séparant les variables par des virgules. 


340 INPUT#1, NOMS,TPHS 


Les lectures doivent, bien sûr, s'effectuer dans l'ordre où 
les écritures ont été faites. 
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10 
20 Les FICHIERS SEQUENTIELS 


' 
' 

30 2222 
' 
' 


40 

50 " ECRITURE 

60 = 

70 ! 

80 OPEN "O",1,"TPH" " Ouverture du fichier TPH sous No 1 
90 INPUT "Nom? ";NOM$ 

100 IF NOM$="" THEN CLOSE #1:GOTO 195 

110 INPUT "Tph? ";TPH$ 

120 ! 

130 PRINT #1,NOM$ " <----- Ecriture d'un enregistrement 

140 PRINT #1,TPH$ Vo <————— Ecriture d'un enregistrement 

150 ! 

160 GOTO 90 

TO 
180 ! " LECTURE 

190 1 —_----- 

195 LPRINT "Premier essai" :LPRINT 

200 OPEN "I",1,"TPH" 

210 ! 

220 INPUT #1, NOM$ ! <---- Lecture d'un enregistrement 

230 INPUT #1,TPH$ y <---- Lecture d'un enregistrement 

240 ! 

250 LPRINT NOM$,TPH$ 

260 IF EOF(1)=-1 THEN CLOSE #1:LPRINT:GOTO 315 * Détection FIN de FICHIER 
270 GOTO 220 

280 
300 " LECTURE 

310 ‘ ————-—- 

315 LPRINT "Deuxième essai :":LPRINT 

320 OPEN "I",1,"TPH" 

330 ‘ 

340 INPUT #1,NOM$, TPH$ M Lecture de 2 enregistrements 

350 ! 

360 LPRINT NOM$,TPH$ 

370 IF EOF(1) THEN STOP 


380 GOTO 340 

390 
400 

410 ! run 

y20 ! 

430 ' Nom? LANGEARD 

yuO ' Tph? 604-91-42 

450 ' Nom? ROULET 

460 ! Tph? 609-84-59 

470 ! Nom? 

480 ! 

490 ' Premier essai: 

495 ! 

500 ‘ LANGEARD 604-91-42 
510 ' ROULET 609-84-59 
520 ! 

530 ' Deuxième essai: 

540 ! 

550 ' LANGEARD  604-91-42 
560 ‘ ROULET 609-84-59 
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L'écriture de plusieurs chaînes dans un même enregistrement 
se fait en plaçant un point-virqgule à la fin de l'instruction 
PRINT. 

Exemple : 10 NOM$="DUPONT" : PRENOM$=" JEAN" 


20 PRINT #1,PRENOM$; 
25 PRINT #1,NOM$ 


À la lecture nous aurons : 


100 INPUT #1,X$ 
110 PRINT X$ 


RUN 
JEANDUPONT 


Séparateurs d'enregistrements 


En plus du 'Carriage return', sont considérés comme sépa- 
rateurs pour les chaînes de caractères, la virgule et le Line 
Feed. 


La lecture d'un enregistrement par INPUT se passe ainsi : 


- Les "ESPACES", ‘,' "LINE FEED' et 'CARRIAGE RETURN' sont 
ignorés en début de lecture. 


- Ensuite, si le premier caractère signifiant est un qguille- 
met (") tous les caractères jusqu'au prochain guillemet sont 
pris en compte. 


- S'il n'y a pas de guillemet, la lecture s'arrête sur un 
séparateur (, CR LF) 


Attention ! : des virgules ‘",' dans les chaînes seraient 
considérées comme des séparateurs : 


10 X$="45,RUE LA BRUYERE" 
20 PRINT #1,X$ 


100 INPUT #1,X$ donnerait X$=45 au lieu de 45,rue la BRUYERE 


LINE INPUT#no fichier, variable chaîne 


Permet de lire tout un enregistrement jusqu'au prochain 


Carriage Return sans tenir compte des séparateurs tels que la 


",' ou Line-Feed. 


Cependant la lecture s'arrête à 255 caractères si aucun 
Carriage Return n'a été rencontré. 


100 LINE INPUT#1,X8 


Une autre façon de procéder est d'écrire entre guillemets 
les chaînes comportant des séparateurs : 


10 PRINT #1,CHR$(34);X$;CHR$(34) 


Ainsi à la lecture par INPUT toute la chaîne entre guillemets 
sera lue. 


100 INPUT #1,X$ 
110 PRINT X$ 


Donnera DUPONT 45,RUE la BRUYERE 
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Attention ! PRINT#1,X$8,Y#,28 n'écrit pas des chaînes séparées 
par des virgules mais des chaînes séparées par des espaces 
(comme PRINT sur imprimante) 


INPUT #1,X$ donne X$=' DUPONT JEAN 604-91-42t 


Sous enregistrements 


On peut aussi stocker les informations de la façon suivante : 


séparateur séparateur 


10 INPUT "Nom? ";NOM$ 
20 INPUT "Tel? ";TEL$ 


30 PRINT #1,N0M$;",";TEL$ 


4O GOTO 10 


La lecture pourra plus tard s'effectuer de 2 façons : 


10 INPUT #1,NOM$,TEL$ 10 LINE INPUT #1,X$ 
20 PRINT NOM$,TELS$ 20 PRINT X$ 
RUN 
DUPONT 955-19-07 : DUPONT, 955-19-07 


WRITE#no fichier ,expressionl,expression2,..(Version 5.) 


Procède comme PRINT#.. mais sépare les valeurs dans le 
fichier par des virgules et délimite les chaînes avec des 
guillemets : 


Exemple : 10 NOM$="DUPONT" :TEL$="955-10-07" 
20 WRITE #1,NOM$,TEL$ 


virgule séparateur 


NUMERIQUE 


Pour les variables numériques, vient s'ajouter comme 
séparateur l'espace. La séparation de variables numériques 
par des ';' ne provoque pas leur concaténation comme pour les 
chaînes de caractères. 

Exemple : 10 X=123:Y=345:2=-678 

20 PRINT#1,X;Y;2Z 
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Ces valeurs dans le fichier sont séparées par des espaces qui 
seront considérés à la lecture comme des séparateurs pour le 
numérique : 
100 INPUT #1,X,Y,Z 
110 PRINT X,Y,Z 
RUN 
123 345 678 


ECRITURE DE CHAINES ET DE VALEURS NUMERIQUES 


Exemple : 10 INPUT "Référence ? ";REF$ 
20 INPUT "Stock ? M"; STOCK 
30 PRINT #1,REF$ 
4O PRINT #1, STOCK 


60 GOTO 10 
On lira ces valeurs par : 


200 INPUT #1,REF$ 
210 INPUT #1,STOCK 


Attention ! ne pas faire : 10 X$g="CYCLE":X=123 
20 PRINT=1, X8:;:Xx 


La lecture de X$ donnerait "CYCLE 123' comme résultat. 


Simulation d'un fichier séquentiel avec le clavier 


10 INPUT "Enregistrement? ";X$ " Lecture d'un pseudo-enregistrement 
20 PRINT X$ ' au clavier 
30 GOTO 10 


run 
Enregistrement? QWERTY 


QWERTY (résultat) 


Enregistrement? "45,rue la BRUYERE" 


45 ,rue la BRUYERE (résultat) 


Enregistrement? QWERTY"JJJJJJ"KKKK 


QWERTY"JJJJJJJ"KKKK (résultat) 


Enregistrement? "45 ,rue la BRUYERE"PARIS 
45 ,rue la BRUYERE (résultat) 
CLOSE#no fichier, #no fichier 
En général, avec les fichiers séquentiels, l'écriture sur 
disque ne se fait pas après chaque PRINT mais seulement 


lorsque le buffer du fichier est plein. Il importe donc de 
clore ces fichiers en fin de session. 
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EOF(no fichier) 

Donne -1 si fin de fichier (0 dans le cas contraire) lors 
d'une lecture de fichier : 

Exemple : 100 IF EOF(1)=-1 THEN CLOSE#]1:GOTO SUITE 


LOC (no fichier) 


Indique le nombre de blocs de 128 octets lus ou écrits selon 
le mode (INPUT ou OUTPUT) (sur 5.) 


INPUTS(x,#no fichier) : (Microsoft 5.) 


Lit X caractères d'un fichier séquentiel. Avec cette 
fonction les séparateurs tels que RC,LF.. sont considérés 
comme les autres caractères. 


Exemple : Dump de fichier 


10 OPEN "I",1,"XX" 
20 IF EOF(1)=-1 THEN STOP 
30 PRINT HEXS$(ASC(INPUT$(1,#1)));" "; 


4O GOTO 20 
PRINT#no fichier USING "format" ; Liste d'expressions 


Les règles d'utilisation du PRINT#USING pour les fichiers 
séquentiels sont les mêmes que pour les PRINT USING sur 
terminal. 


AJOUTS D'ENREGISTREMENTS 


Alors que certains ficniers séquentiels acceptent l'ajout 
d'enregistrements en fin de fichier lors d'une réouverture, 
d'autres plus rustiques, tels que ceux de Microsoft 5. fonc- 
tionnant sous CPM, ne les acceptent pas. 


Dans ce cas, l'ajout d'enregistrements se fait en générant 
un nouveau fichier à l'aide de l'ancien lu en INPUT et des 
ajouts. Ceci ne simplifie évidemment pas l'exploitation des 
fichiers séquentiels déjà si peu attrayante. 


Les fichiers séquentiels de DTC Microfile, eux, acceptent 
non seulement les ajouts en fin de fichier mais aussi les 
insertions et suppressions (et sans décalages grâce à des 
chaînages internes transparents à l'utilisateur). 
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[llème Partie 


Méthodes pratiques 


LE BASIC ET SES FICHIERS 


CHAPITRE 3-1 
QUELQUES METHODES SIMPLES 


DATE FICHIER 


Il est important, pour travailler sur un fichier de connaî- 
tre la version utilisée. Une date est, pour ce faire, stockée 
dans un enregistrement particulier, le n°1 par exemple. Cette 
date est bien sûr mise à jour à chaque session. 


JO$ MO$ AN$ 
DATE 1 9 | 1 | 80 I 
2 [DUPONT |xxxxxxx 


3 [DURAND |xxxxxxx 


10 OPEN "R",1,"CLIENT" Ê 
20 FIELD #1,1 AS JO$,1 AS MO$,1 AS AN$ " Champs pour la date 
30 FIELD #1,12 AS NOM$,10 AS PREN$,............. 


4O GET #1,1 " Date dans enreg no 1 
50 PRINT USING "###";ASC(J0O$) ,ASC(MO$) ,ASC(AN$) ‘ Impression date actuelle 


60 PRINT ASC(JO$);:INPUT "Jour ? ";X:IF X>0 AND X<32 THEN 
LSET JO$=CHR$(X) ELSE GOTO 100 
70 PRINT ASC(MO$);:INPUT "Mois ? ";X:1IF X>0 AND X<13 THEN 
LSET MO$=CHR$(X) ELSE GOTO 100 
80 PRINT ASC(ANS$);:INPUT "An ? ";X:IF X»>0O AND X<90 THEN LSET AN$=CHR$(X) 


100 PUT #1,1 
110 DATES$=STR$(ASC(J0$))+STR$(ASC(MO$))+STR$(ASC(ANS$)) 


120 PRINT DATES$ " Impression nouvelle date 
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Une date de création et une date de mise à jour pour chaque 
enregistrement peuvent également être prévues. Notons que 
3 octets suffisent pour coder une date. 


LISTE TRIEE D'UN FICHIER À ACCES DIRECT 


La plupart du temps, les fichiers ont une taille trop 
importante pour être amenés en mémoire centrale dans leur 
totalité, puis triés. On procède donc de la façon suivante : 


1- Lire d'abord séquentiellement le fichier en ne conservant 
en mémoire centrale que les clés à trier dans une table des 
clés et dans une autre table dite d'index les n° des enre- 
gistrements correspondants aux clés lues. 


2- Ensuite trier la table des clés, par inversions successives 
par exemple, en inversant en même temps les n° d'enregistre- 
ments correspondants dans la table d'index. 


3- 11 est alors possible en lisant séquentiellement la table 
d'index d'obtenir tous les enregistrements du fichier dans 
l'ordre croissant des clés. 


S'il existe un index sur disque en ordre croissant, tenu à 
jour au fur et à mesure des ajouts, servant aux consultations 
en temps réel, une liste triée est bien sûr obtenue à l'aide 
de cet index. 


Remarque : Sur cet exemple, nous avons amélioré la méthode de 
tri ‘'ripple' en réduisant de un la taille de la table explorée, 
après chaque passage. 


Bubble sort 


Cette méthode de tri consiste à comparer d'abord le premier 
élément à tous les autres (en inversant à chaque fois que l'un 
de ceux-ci est plus petit que le premier). Le plus petit de la 
table est ainsi amené en première position. On procède de la 
même façon en comparant le second élément de la table à tous 
les éléments restants, etc. 


Ainsi, après N explorations de la table (N=nombre éléments), 
la table est en ordre : 


10 FOR I=1 TO N-1 " BUBBLE SORT 

20 FOR J=1+1 TO N " Comparaison du leme à tous les autres 
30 IF A(J)<A(I) THEN SWAP A(I),A(J) 

4O  NEXT J 

50 NEXT I 


Pour les valeurs aléatoires, les nombres de comparaisons et 
d'inversions sont les mêmes qu'avec 'ripple amélioré'. Cepen- 
dant, le temps d'exécution est sensiblement plus faible 
puisqu'il n'y a pas à positionner le témoin d'inversion. 


Des 3 méthodes de tri les plus simples, 'ripple', ‘bubble' 
et ‘'shell', c'est cette dernière qui est la plus rapide. 
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Shell-Metzner 


Signalons que la méthode de Shell-Metzner est 2 fois plus 
rapide que celle de Shell (3 fois moins de comparaisons) : 


100 TAILLE=100:PAS=TAILLE " SHELL-METZNER 
105 ? 

110 PAS=INT(PAS/2):IF PAS<1 THEN STOP 

120 J=1:K=TAIILE-PAS 

129 * 

130 I=J 

140 ! 

150 L=I+PAS 

160 IF A(I)<A(L) THEN GOTO 200 

170 SWAP A(L),A(I) 

180 I=I-PAS:IF I<1 GOTO 200 ELSE GOTO 150 
190 

200 J=J+1:IF J>K GOTO 110 ELSE GOTO 130 


11 pourrait sembler intéressant, pour trier des chaînes de 
caractères, d'utiliser un index (pointant vers la table des 
chaînes) où les inversions seraient effectuées plutôt que dans 
la table des chaînes. En fait, le temps de tri ne varie 
pratiquement pas. 


Cette méthode peut cependant présenter l'avantage de ne pas 
modifier la table des clés à trier. 


Comparaisons de tris : (BASIC interprété sur 8080) 


Temps de tri (en secondes) pour des nombres aléatoires entre 
0 et 1 : 


BUBBLE SHELL SHELL-METZNER INSERTION DICHOTOMIQUE(OI no 8) 


50 4 15 15 9 15 
100 à 55 45 21 45 
200 : 215 110 50 145 
300 ; 470 165 80 300 
400 ; 125 470 
500 ; 145 760 


Pour 500 noms de 12 caractères, le temps de tri par Shell- 


Metzner passe de 145 à 165 secondes. 


Précisons que l'ajout dans une liste déjà en ordre de 
nouveaux éléments, peut être faite en insérant ceux-ci de 
façon à maintenir la liste en ordre. Si, toujours pour ajouter 
des éléments dans une liste en ordre, on procède à l'aide Ë'un 
tri classique, un 'ripple' (dans les 2 sens) pourra se révéler 
plus efficace qu'un Shell-Metzner. 
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LISTE TRIEE D'UN FICHIER à ACCES DIRECT 


Au cours d'une première lecture séquentielle du fichier, 
seules les clés à trier(les noms par ex) 
et les numéros des enregistrements ou elles ont été lues sont gardés 
en mémoire centrale dans des tables(table des clés et table d'index). 
Après avoir trié celles-ci ,on lit à nouveau le fichier ,mais 
par l'intermédiaire de l'index que l'on explore séquentiellement. 

' On obtient ainsi une liste du fichier dans l'ordre des clés triées. 

LU 


OPEN "R",1,"CLIEN" " Ouverture du fichier CLIEN 


! * CONSTITUTION DES TABLES DES CLES ET D'INDEX 
NB=LOF(1)-1:J=1 * NB:nombre d'enregistrements 

DIM CLES$(NB) ,INDEX(NB) ‘ J :nombre de clés 

L 


FOR 1=1 TO NB 


GET #1,1 " Lecture de l'enregistrement no I 
IF ASC(N$)=0 GOTO 240 " Enregistrement vide? 
CLE$(J)=N$:INDEX(J)=1:J=J+1 ‘ Ajout dans la table des clés 
EE RSA DES EP A EE " et dans la table d'index 
NEXT I 
' 
d'imitation ind lé écnin mueas apaiser Sam siie 
K=J-1 * TRI DES TABLES DES CLES ET D'INDEX 
INVERSION=0 # ('Ripple amélioré!) 
! 
FOR I=1 TO K-1 


IF CLES$(I+1)<CLE$(I) THEN 
SWAP CLE$(I+1),CLE$(I):SWAP INDEX(I+1),INDEX(I):INVERSION=1 

NEXT I 
' 
IF INVERSION=1 THEN K=K-1:GOTO 280 
! 
19 en vai en ne 22 ie un mi a em Emi ei 2e en mir ue ms 2 mt eu ue en mnt cuit em mms scan Lmmmmmmmmmne 
LPRINT "RESULTAT" " EDITION 
LPRINT "====2==2=":LPRINT nn" 
LU 
FOR I=1 TO J-1 


GET #1,INDEX(I) 


LPRINT N$,PN$,TL$, INDEX(I) 
NEXT I 
1] 


[ouronr | x x xx | 
[aru [xxxx | 
[LAVGEARD] x x x » | 


Lorsini | 


" run 

! 

"RESULTAT Qés TRÉES Fichier 
Ÿ  2z=2=22222= 

* BALU Thierry 739-33-90 è 

" CORNU Elisabeth 609-00-99 5 

" DUPONT Jean 7717-00-66 1 

* LANGEARD Nicole 604-91-42 3 

" ORSINI Bruno 955-11-33 4 
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10 ! REGROUPEMENT PAR CODE 

20 ! 

30 .Ce programme permet de regrouper pour CHAQUE CODE POSTAL 

yo ! toutes les personnes ayant ce code postal.Le regroupement se fait par 
50 ‘ la constitution d'un index (INDEX4) en mémoire centrale contenant 

60 ! dans chaque 'ligne' des pointeurs vers tous les enregistrements 

70 ! ayant le même code postal. 

80 ! .2 explorations de fichier seulement sont nécessaires:1 pour la cons- 
90 ! titution de l'index et 1 pour l'édition de la liste 

100 Afin d'obtenir ces regroupements dans l'ordre des codes , 

110 on constitue ,au fur et à mesure des lectures dans le fichier, 

120 une table des codes et une table d'index IX#% pointant vers 

130 INDEX# et contenant au départ (1,2,3,...) puis on tri la table 


! 
! 
LU 
! 
140 ! des codes(ainsi que IX4) et enfin on lit INDEX# via IX4) 
LU 
L 
' 
! 
1! 


150 -INDEX# crée sur disque(1 enregistrement de 128 octets 

160 contiendrait 64 pointeurs), permettrait plus tard, grâce à la 
170 mémorisation des regroupements, de faire des recherches en 
180 ‘temps réel' plus rapides(recherche du type : 

190 "donnez-moi toutes les personnes ayant tel code postal') 

200 ! 

210 DIM INDEXZ#(50,20),CODE$(50),1IX4(50) " 50 codes maxi 


220 OPEN "R",1,"NOM":FIELD #1,12 AS NOM$,5 AS CPOST$ 


340 FOR NE=1 TO LOF(1) " CONSTITUTION DE L'INDEX 
350 GET #1,NE:IF ASC(NOM$)=0 GOTO 480 

360 ! 

370 FOR K=1 TO 50 " Recherche code 

380 IF CPOST$=CODE$(K) THEN GOTO 430 

390 IF CODE$(K)="" THEN CODE$(K)=CPOST$:IX4(K)=K:NB=NB+1:GOTO 430 


400 NEXT K 
410 PRINT "Augmentez la taille de CODE$-IX#-INDEX#" :STOP 


430 FOR I=1 TO 20 " Ajout pointeur 
440 IF INDEXZ4(K,1)=0 THEN INDEX#(K ,I)=NE:GOTO 480 

450 NEXT I | 

460 PRINT "Augmentez la taille de INDEX#":STOP 


470 ! 
480 NEXT NE 
490 
500 FOR I=1 TO NB-1 " TRI DES CODES 
510 FOR J=1+1 TO NB : ('bubble') 
520 IF CODE$(J)<CODES$(I) THEN SWAP CODES$(I),CODES$(J): 
SWAP IX#(1),1X#(J) 
530 NEXT J 
540  NEXT I 
50 
560 LPRINT :LPRINT "Code" ;TAB(20)"Nom" :LPRINT 
570 FOR CODE =1 TO 50 " LISTE PAR CODE 
580 LPRINT CODE$(CODE ); 
590 
600 FOR 1=1 TO 20 
610 NE=INDEX#(IX#(CODE),I1):IF NE=0 GOTO 650 
620 GET #1,NE:LPRINT TAB(20) NOM$ 
630 NEXT I Nbexs 
640 * IX4 = 
650 LPRINT 
660 NEXT CODE 
670 ! 
680 ! run p 
690 * 
me k Code Nom 
720 ‘ 75000 DUPONT ns 
730 MARTIN 
740 ! 
750 ' 78000 SOUQUET 
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ALLOCATION DE L'ESPACE DISQUE POUR LES FICHIERS RANDOM 


Afin d'éviter d'avoir à réorganiser périodiquement l'espace 
disque lorsque des fichiers sont supprimés, c'est générale- 
ment par blocs de 1024 octets (non 
contigus) que se fait l'allocation de 
l'espace disque. 


Un index pour chaque fichier (transpa- 
rent à l'utilisateur) permet au système 
de retrouver les différents blocs de 
1024 octets alloués à chacun d'eux. 


Afau 
octers 


LE &&> 


Par exemple, si l'enregistrement n°1 
(128 octets) est créé dans un fichier 
vide, 1024 octets sont réservés pour 
les enregistrements allant de 1 à 8. 
Lorsque plus tard, l'enregistrement ALLOCATION DE L'ESPACE 
n°9 sera créé, 1024 octets seront DisQuE 
alloués pour les enregistrements 9 à 16. 


Avec Microsoft 5. l'écriture au n°81 

dans un fichier vide, ne provoque 

une réservation que pour les enregis- 
trements allant de 81 à 88. (pour des 
enregistrements de 128). 


Sur TRS80 NEW-DOS, l'écriture au n°81 
dans un fichier vide provoque en plus 
une réservation pour les 80 premiers 

enregistrements. 


ALLOCATION DISQUE AVEC 
MICROSOFT 5. 


Un système comme DTC MICROFILE ne fait 
l'allocation que par 128 octets. Ce 

qui autorise l'écriture dans un fichier 

de façon aléatoire sans jamais perdre 

de place disque. 8A 
(Voir fichier virtuel). 


A28 ocrers 


ALLOCATION DISQUE SUR 
DTC MIcROFILE 
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ALLOCATION DYNAMIQUE 


L'ajout d'enregistrements dans un fichier RANDOM peut se 
faire en fin de fichier à l'aide de LOF. Mais lorsque des 
enregistrements sont supprimés à l'intérieur d'un fichier, 
pourquoi ne pas les récupérer dynamiquement plutôt que de 
réorganiser périodiquement ce fichier ? 


Deux méthodes existent : le chaînage des enregistrements 
vides et la gestion d'une 'Bit-Map' (carte de bits) indiquant 
pour chaque enregistrement dans le fichier s'il est occupé ou 
non. C'est cette dernière que nous allons étudier. 


Pour cela, utilisons l'enregistrement n°1 (256 octets par 
exemple) comme pseudo Bit-Map. Si nous avons moins de 254 en- 
registrements à gérer, réservons un octet pour représenter 
l'occupation de chaque enregistrement. 


Au départ, tous les octets de la bit-map sont à zéro. A 
chaque création dans le fichier, nous positionnons à 1 l'octet 
correspondant à l'enregistrement utilisé. 


1 2 3 4 Dares 3 iosérs ertie àà 
1 [: [all] BIT-MAP 
2 MARTIN XXXXXXXXXXXXXXXXXXXXX 
3 DUPONT XXXXXXXXXXXXXXXXXXXXX 
4 Libre 
5 DUPOND I XXXXXXXXXXXXXXXXXXXXX 
10 TENREG=254:DIM BMAP$(TENREG) 
20 FOR I=1 TO TENREG:FIELD#1,(1-1)#1 AS D$,1 AS BMAP$(I):NEXT I 
30 FIELD #1,12 AS N$,........ 
100 GOSUB 1000 " Appel pour avoir un enregistrement libre 
110 INPUT "Nom ? ";NOM$ 
120 LSET N$=NOM$ 
130 PUT #1,ARANG " ARANG --> adresse de rangement calculee 
140 GOSUB 2000 " Appel MAJ BIT-MAP 
150 STOP 
990 
1000 GET #1,1 " Appel de la BIT-MAP 
1005 
1010 FOR W=2 TO TENREG " Recherche dans la BIT-MAP 
1020 IF ASC(BMAP$(W))=0 THEN ARANG-=W:GOTO 1500 
1030 NEXT W 
1035 ' 


1040 PRINT "Il n'y a plus d'enregistrement disponible" :STOP 
1500 RETURN 


1990 
2000 GET #1,1:LSET BMAP$(ARANG)=CHR$(1):PUT #1,1:RETURN ‘MAJ BIT-MAP(ajout) 
2070 1 


3000 GET #1,1:LSET BMAP$(ARANG)=CHR$(O):PUT #1,1:RETURN ‘MAJ BIT-MAP(sup) 
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Si nous devons gérer un nombre plus important d'enregistre- 
ments, nous représentons 8 positions par octet. Nous disposons 
ainsi par exemple, pour un enregistrement de 100 octets, de 
800 positions. 


L ALLOCATION DYNAMIQUE (gestion d'une BIT-MAP) 


DIM BMAP$(50) 

OPEN "R",1,"JBG":FIELD #1,12 AS N$ 

FOR I=1 TO 50 :FIELD #1,(1-1) AS D$,1 AS BMAP$(I):NEXT I 

U 

INPUT "Nom? ";NOM$ 

GOSUB 140:GET #1, ARANG * Appel recherche enregistrement 


100 LSET N$=NOM$:PUT #1,ARANG 
110 GOTO 80 

120 ts. 
130 " RECHERCHE ENREGISTREMENT LIBRE 
140 GET #1,1 * Appel BIT-MAP ‘ 


150 FOR I=1 TO 50 
' 


160 NOCTET-=No octet :NBIT-No bit à l'intérieur de l'octet 
170 X%=ASC(BMAP$(1)) 

180 IF X9=255 GOTO 250 " Tous les bits de cet octet sont à 1 
190 

200 FOR NBIT=1 TO 8 " Recherche de 1 bit a O dans l'octet 
210 MASQUE#=2"(NBIT-1) 

220 IF (X% AND MASQUEZ)-0 THEN NOCTET=-I:I=50:NEXT I:GOTO 290 

230 NEXT NBIT 

240 

250 NEXT I 

260 

270 PRINT "Il n'y a plus d'enregistrement disponible!" :STOP 

280 

290 LSET BMAP$(NOCTET)=CHR$(X#+MASQUEZ) ' On a trouvé un enregistrement libre 
300 ARANG=((NOCTET-1)#8)+NBIT+1 " Calcul adresse enregistrement libre 
310 PRINT ARANG 

320 PUT #1,1 * Rangement BIT-MAP 

330 RETURN 
Zn 
350 ! SUPPRESSION ENREGISTREMENT 

360 GET #1,1 * Appel BIT-MAP 


370 NBIT=(ARANG-1) MOD 8:NOCTET=INT((ARANG-1)/8)+1 
380 LSET BMAP$(NOCTET )=CHR$(ASC(BMAP$(NOCTET))-(2"(NBIT-1))) 


390 PUT #1,1 
400 RETURN 
UD mms mmememmsmmmmemess sms ss 
420 ' Pour plus de sécurité,nous pourrions avant d'utiliser un enregistrement 
430 ' supposé libre ,nous assurer qu'il l'est effectivement ,en testant son 
HO ! contenu. 

F NOCTET 
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FICHIER À ACCES DIRECT VIRTUEL (DTC MICROFILE) 


Ce fichier se pré- 
sente comme un fichier 
à accès direct pour 
l'utilisateur ; celui- 
ci dispose à la création 
d'un fichier de 
4096 enregistrements 


logiques vides mais il Paul 
n'y a d'occupation PROCRANA 
physique sur disque PROGRAMMEUR: + 


\ 
qu'au fur et à mesure Ficnisa ACCES 
de l'écriture effective Vol 7 


d'enregistrements. 


Par exemple, si l'uti- 
lisateur écrit en 2, 4 WDEX 
et 100, 3 secteurs seu-  pemsre  NSecTEur 
lement seront occupés y Logqut 
sur disque. 


Ce type de fichier à 
accès direct 'virtuel' 
a parmi ses nombreux 
avantages celui d'éviter, 
en cas d'utilisation du 
hash-code, une perte 
d'espace disque. 


Organisation physique 


Un index permet pour 
chaque fichier d'éta- 
blir la correspondance 
entre les n° logiques 
(seuls connus du pro- 
grammeur) et les 
adresses physiques des 
enregistrements sur 
disque. 


9— LIBRE 


AIT MAPS IMAGE DE L'OCCUPATION DISQUETTE : 
À — 0 CLUPE 


ACCÈS INOEXÉ NUMÉRIQUE 


En réalité l'index 
n'est pas continu, il 
est à 2 niveaux et seul 
l'index de niveau 0 est 
résident en mémoire 
centrale. 


AL ocTers 


L'index 1 se trouve ONCEEFEEET: 
sur disque et est alloué 
dynamiquement par blocs 4f35L4] 
de 128 octets capables AS (COIPEFELFESI| 
de recevoir chacun CENTRALE 

64 pointeurs. 

Notons qu'il n'y a pas 
de décalages entre blocs 
comme pour un index à 
2 niveaux classique. 

Sa gestion est donc plus 
simple (et plus perfor- 
mante) mais il limite les INDEX 4 SUR DISQUE 


clés numériques à 4096. ACCÈS INDEXE NUMÉRIQUE (SCHÈMA RÉGL) 
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SAISIE ECRAN TRS80 


11 est intéressant, lors d'une saisie de données, d'en contro- 


ler la validité au fur et à mesure de leur introduction, et si 
possible caractère par caractère. 


Un système tel que TRS80, muni d'une fonction de saisie d'un 
caractère INKEYS$ le permet. (La fonction INPUT ne le permet 
pas). 


TABLE XX (AGSCISSES) 


TABLE LÆ (Lonueur zônt) 


TABLE y y (orvonnées) 


NOM: 
PRENOM: ......... 
RUE : 
VILLE : 
c. POST. : 
TELEPHONE : 
CURSEUR GAUCHE POUR ZONES 


ARRIÈRES à 
2:ENTIER 


3: simece . 
PRECISION 


TAQL6 REY 
POUR FICHIER RANDOM 


TABLE R$ 


Le positionnement direct du curseur sur les zones à saisir 
se fait grâce à la fonction : 


PRINT @(Yx64)+X où X et Y représentent respective- 
ment l'abscisse et l'ordonnée du 
curseur. 


Le clavier est lu en permanence par INKEYS. On sait si un 
caractère a été frappé par le test suivant : 


370 XS=INKEYS 
380 IF Xg="" GOTO 370 ‘Si Xx$8="" on n'a rien frappé 


430 PRINT Xg; ‘Impression si caractère valide 
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L'acquisition d'une ZONE se fait par concaténations succes- 
sives des caractères acquis : 


440 YS=YS+Xx8 


La suppression du dernier caractère acquis, lorsque l'opéra- 
teur a frappé la touche ‘curseur gauche' (code ASCII 8) se 
fait par : 


410 IF ASC(X#)=8 THEN .... YS=LEFTS(XS#,LEN(YS#)-1) 


Le curseur n'apparaissant pas lorsque la FONCTION INKEYS 
est utilisée, il nous faut en gérer un par programme. Ce qui 
nous conduit à afficher le caractère acquis X$ en adressage 
absolu 


430 PRINT@ XY+LEN(YS) ,X8; 


Sans cette gestion du curseur, l'instruction : 430 PRINT X$8; 
suffirait. (une gestion de curseur par ligne seulement pour- 
rait être faite à l'aide de SET, RESET). 


À chaque fois que la saisie d'une zone se termine par la 


frappe d'un retour chariot (code ASCII 13), nous la réaf- 
fichons. 

54O ON TZ(I) GOSUB 550,560,560 

550 PRINT R$(I);STRING$(LZ(I)-LEN(R$(I)),"."):RETURN 


560 PRINT R$(I);STRING$(LZ(I)-LEN(R$(I)),"-"):RETURN 


Dès qu'une zone saisie atteint la longueur maximum prévue, il 


y a saut automatique à la zone suivante : 
450 IF LEN(YS) >7=LZ(I) GOTO 480 


Lorsque nous appuyons sur la touche ‘curseur gauche’, et 
tant que la chaîne Yg n'est pas vide, il y a suppression des 
derniers caractères dans celle-ci. Mais dès que Y$ devient 
vide, la frappe de ‘curseur gauche' provoque un retour sur la 
zone précédent celle où nous sommes positionnés. (instruction 
400). 


Pour une saisie directe dans un fichier Random, la table 
RES, où les résultats sont rangés, doit être déclarée dans 
l'instruction FIELD .... 


3 types de zones sont prévus : 1 ALPHA 
2 INTEGER 
3 SIMPLE PRECISION 


Les fonctions de contrôle ALPHA et NUMERIQUES sont appelées 
par : 


420 ON TZ(I) GOSUB 580, 590, 590 


Des sous-programmes de contrôle "personnalisés" pour certai- 
nes zones peuvent être inclus. Rien n'empêche de prévoir une 
touche particulière pour annuler une zone ou de revenir sur 
une zone arrière autrement que par ‘curseur gauche". 


Si ce sous-programme doit aussi servir à modifier des zones 
d'enregistrements de fichier Random, l'ancienne valeur de 
chaque zone est affichée, avant la saisie : 


295 ON TZ(I) GOSUB 640, 645, 650 
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PRINT "ECR 30.10.79":PRINT 


SAISIE ECRAN TRS80 CARACTERE PAR CARACTERE 


CURSEUR CARACTERE par CARACTERE 


LU 
LU 
' 
LU 
' 
CLEAR (3000) : NZ =6 
' Résultat dans tables R$ et RE$ 


' 
DATA 1,3,5,7,9,11: FOR I=1 TO NZ:READ YY(I):NEXT I ! Ordonnées 

DATA 5,5,5,5,5,5: FOR I=1 TO NZ:READ XX(I):NEXT I " Abscisses 

DATA 1,1,1,1,3,1 : FOR I=1 TO NZ:READ TZ(I):NEXT I " Types zones 
DATA 20, 10,25,15,5,15:FOR 1=1 TO NZ:READ(LZ(I):NEXT I " Longueurs zones 


DATA "NOM:" ,"PRENOM:" ," RUE :" ,"VILLE:" ,"CPOST:" ,"TELEPH:": 
FOR 121 TO NZ:READ NZ$CI):NEXT I 


COSUR 250:STOP 
: SAISIE ECRAN Pour fichier RANDOM : 
' déclarer table RE$ dans FIELD # ..... 
: 295 PRINT @XY+10,"";:ON TZ(I) GOSUB 640,645 ,650 
LU 
FOR 1=1 TO NZ:R$(I)="":NEXT I 
CLS 

FOR I=1 TO NZ " Affichage masque 

XY=YY(I)#64+XX(I):PRINT @XY,NZ$(I); 
PRINT @XY+34,"";:ON TZ(I) GOSUB 550,560 ,560,560 

NEXT I 
' 
PRINT @924," Curseur gauche pour ZONES ARRIERES" 
I=1:Y$="" 
XY=YY(I)#64+XX(I1)+34:IF TZ(I)=1 THEN AE$="." ELSE AE$="-" 
LU 
PRINT @XY+LEN(Y$) ,CHR$(136); ‘ Affichage curseur 
X$=INKEY$ " Lecture du clavier 
IF X$="" GOTO 370 " Test du clavier 
IF ASC(X$)=13 THEN IF Y$="" THEN 490 ELSE GOTO 480 ‘ Retour Chariot? 
IF ASC(X$)=8 THEN IF LEN(Y$)=0 THEN 

IF 1>1 THEN GOSUB 540:I=I-1:GOTO 350 ELSE GOTO 370 

IF ASC(X$)=8 THEN PRINT @XY+LEN(Y$) ,AE$; : Y$=LEFT$(Y$, LEN(Y$)-1):GOTO 360 
ON TZ(I) GOSUB 580,590 ,590,590:ON Q GOTO 430, 370 " Appel contrôle 
PRINT @XY+LEN(YS$),X$; " Imp caract acquis 
Y$=Y$+X$ ‘ Ajout du caractère 
IF LEN(Y$)=>LZ(I) GOTO 480 " Fin de zone ? 
GOTO 360 
LU 
R$(I)=Y$:ON TZ(I) GOSUB 610,615,620:Y$="" " Rangement zone 
IF I>=NZ THEN RETURN ‘ Fin de saisie? 
GOSUB 540:I=1+1:GOTO0O 350 " Réaffichage zone 
! 


PRINT @XY,"";:ON TZ(I) GOSUB 550,560,560,560:RETURN 
PRINT R$(I);STRINGS$(LZ(I)-LEN(R$(I)),"."):RETURN * Affichage zone 
PRINT R$(I);STRINGS$(LZ(I)-LEN(R$(I)) ,"-"):RETURN 
LU 
IF ASC(X$)<32 THEN Q=2:RETURN ELSE Q=1:RETURN 
IF ASC(X$)<48 OR ASC(X$)>57 THEN Q=2:RETURN 

ELSE Q=1:RETURN " Contrdle NUMERIQUE 
Rangement fichier 


Contrôle ALPHA 


LSET RE$(I)=Y$:RETURN 
LSET RE$(I)=MKIS$(VAL(Y$)) : RETURN 
LSET RE$(1)=MKS$(VAL(Y$)) : RETURN 


PRINT RES$(I);:RETURN Affichage ancienne 
PRINT CVI(RES$(I));:RETURN " zone 
PRINT CVS(RES$(I));:RETURN 
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Saisie sur écran indépendant 


Lorsqu'un écran est indépendant d'un système (contrairement 
au TRS80 par exemple), c'est par l'envoi de "caractères de 
contrôle" que se fait sa gestion : 


par exemple l'effacement de l'écran se programme 


10 PRINT CHRS(X) X ayant une valeur propre à chaque 
type d'écran. 


Le positionnement direct du curseur dans l'écran se fait en 
envoyant un caractère de contrôle spécifique immédiatement 
suivi des coordonnées X et Y 


PRINT CHRB (XY) :CHRS (X) :CHRS (Y) 


valeur spécifique - abscisse - ordonnée 
au type d'écran 


11 est parfois nécessaire d'ajouter à X et Y une constante 
(32 sur l'exemple). 


Quelques caractères de contrôle sont standard : 


Ainsi PRINT CHR#(7) active la sonnerie de l'écran. 


Parmi les caractères envoyés par le clavier, le curseur 
gauche a pour code 8, le retour chariot le code 13. 


En BASIC Microsoft 5., c'est la fonction INPUTS#(1) qui 
permet d'acquérir les données caractère par caractère : 


X8=INPUTS#(1) 


Les caractères de contrôle de l'écran du Lx500 sont : 


Effacement : PRINT CHR$(133) 
Video inverse: PRINT CHR$(29) 
Fin video : PRINT CHR$(28) 
Adressage XY: PRINT CHR$(27)+CHR$(61)+CHR$(32+Y )+CHR$(32+X) 


Pour cet écran, les coordonnées de positionnement du curseur 
doivent être envoyées dans l'ordre Y,X au lieu de X,Y. 


Si un programme de saisie doit fonctionner avec différents 
types d'écrans, on demandera à l'opérateur en début de session 
sur quel type d'écran il travaille et on affectera alors aux 
différents caractères de contrôle les valeurs adaptées au type 
d'écran utilisé. 


INPUT "Type ecran? ";ECRAN$ 


IF ECRAN$="TYPE2" THEN XYS$=CHR$(YY):DEF FNXY$=. 
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f SAISIE ECRAN (ET MODIFICATION) LX500 


: RESULTAT DANS R$ ET RESUL$ 
OPEN "R",1,"NOM" 
L 


EFFACS$=CHR$(133):CG$=CHR$(8):XY$=-CHR$(27)+CHR$(61): VIDEO$=CHR$(29): 
FVIDEO$=CHR$(28):BX=32:RC$=-CHR$(13):SON$=CHR$(7) 

L 

NZ=5:DIM RESULS$(NZ) ,R$(NZ) ,NZ$(NZ) " NZ:nombre de zones 

DATA "NOM:" ,"PRENOM:" ,"RUE:" ,"VILLE :" ,"CPOST:": 

FOR 1=1 TO NZ:READ NZ$(I):NEXT I 

DATA 2,2,2,2,2: FOR I=1 TO NZ:READ XX(I):NEXT I 

DATA 3,5,7,9,11: FOR I=1 TO NZ:READ YY(I):NEXT I 

DATA 1,1,1,1,3: FOR I=1 TO NZ:READ TZ(I):NEXT I 

DATA 12,5,25,10,5:FOR I=1 TO NZ:READ LZ(I):NEXT I 

! 

FIELD #1,12 AS RESULS$(1),12 AS RESUL$(2),25 AS RESUL$(3),15 AS RESUL$(4), 

4 AS RESUL$(5) 


Abscisses 

Ordonnees 

Types des zones 
Longueurs des zones 


DEF FNXYS$(X,Y)=XY $+CHRS$(BX+Y)+CHR$(BX+X) " Adressage curseur 
GET #1,100: GOSUB 190:PUT #1,100:STOP " Appel sous programme saisie 
T'as sn Die nées en hrnte Ca dite dirt nes RE ur han 8 26 6 C5 08 o8 a lb Sie ES rene Smah nie NÉE Qui 
PRINT EFFAC$;:FOR I=1 TO NZ:R$(I)="":NEXT I 
L 
FOR 1=1 TO NZ 
PRINT FNXYS$(XX(I),YY(I));, VIDEO$; : PRINT USING "\ \MsNZS$(I); 
PRINT FNXY$(XX(1)+15,YY(I));FVIDEO$; 
ON TZ(I) GOSUB 560,570,580,450 " Affichage ancienne zone 
PRINT FNXYS$(XX(I)+35,YY(I)); 
ON TZ(I) GOSUB 450,460,460,460 " Affichage masque 
NEXT I 
! 
I=1:Y$="" " Y$-Chaïne courante 
PRINT FNXYS$(XX(I)+35,YY(I1));:IF TZ(I)=1 THEN AE$="." ELSE AE$="-" 
L 
X$=INPUT$(1) " Lecture clavier 
IF X$-CG$ AND LEN(Y$)=0 THEN PRINT SON$;: 
IF 1>1 THEN GOSUB 4U4O:I=1-1:Y$="":GOTO 300 ELSE GOTO 320 
IF X$-CG$ THEN 
Y$=LEFTS$(YS$,LEN(Y$)-1): PRINT CG$;AE$;CG$;:GOTO 320 ‘Sup 1 caract 
IF X$=RC$ THEN IF Y$="" THEN GOTO 410 ELSE GOTO 400 
ON TZ(I) GOSUB 480,490,490,U490:ON Q GOTO 370,320, 320, 320 
Y$=Y$+X$: PRINT X$; 
IF LEN(YS$)< LZ(I) THEN GOTO 320 ELSE PRINT SON$; " Fin de zone? 
L 
R$(I)=Y$:ON TZ(I) GOSUB 510,520,530,540: Y$="" " Rangement zone 
GOSUB 4UO:IF I>=NZ THEN RETURN ‘ Fin saisie? 
1=1+1:GOTO 300 
LU 
PRINT FNXY$(XX(I)+35,YY(I));:ON TZ(I) GOSUB 450,460,460,460:RETURN 
PRINT R$(I);STRING$(LZ(I)-LEN(R$(I)),"."):RETURN 
PRINT R$(I);STRING$(LZ(I)-LEN(R$(I)) ,"-"):RETURN 
LU 
IF ASC(X$)<32 THEN PRINT SON$;:Q-2:RETURN ELSE :Q=1:RETURN "Contrôle 
IF ASC(X$)<48 OR ASC(X$)>57 THEN PRINT SON$;:Q=2:RETURN ELSE Q=1:RETURN 
! 
LSET RESUL$(I)=Y$:RETURN " Saisie dans fichier RANDOM 
LSET RESUL$(I)=MKI$(VAL(Y$)) : RETURN 
LSET RESUL$(I)=MKS$(VAL(Y$)) : RETURN 


LSET RESUL$(I)=CHR$(VAL(Y$)):RETURN 
! 
PRINT RESUL$(I);:RETURN * Affichage ancienne valeur 


PRINT CVI(RESUL$(I));:RETURN 
PRINT CVS(RESULS$(I)) ; : RETURN 
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CHAPITRE 3-2 
L'ACCES INDEXE 


La plupart des P.S.I. de gestion actuels proposent des 
fichiers avec un accès par un n° d'enregistrement. Or, en 
gestion, c'est par un nom où par un code que l'utilisateur 
désire accéder aux informations. 


11 serait possible, bien sûr, de rechercher une information 
dans un fichier par un nom ou par un code, en lisant séquen- 
tiellement tous les enregistrements, mais compte tenu du temps 
d'accès, de l'ordre de 100 ms, pour chaque enregistrement, 
l'information cherchée ne serait retrouvée qu'après plusieurs 
secondes pour un fichier de taille moyenne. 


Comment établir la correspondance entre les clés d'accès de 
l'utilisateur et les n° d'enregistrements où sont rangées les 
informations afin de limiter les accès disque et de réduire 
ainsi les temps d'accès ? 


Deux principes sont généralement utilisés : 


— Soit le Hash-Code qui établit la correspondance par un calcul 
d'adresse de rangement effectué sur la clé ; 


- Soit l'accès indexé qui établit la correspondance à l'aide 
d'une table. 


Si la première méthode est plus simple dans son principe, 
elle est aussi plus coûteuse en place disque, du moins avec 
les fichiers classiques. 


C'est donc vers l'accès indexé que nous orienterons nos 
recherches. 


- Accès indexé simple : table en mémoire centrale constituée 
en début de session. 


- Accès indexé avec sauvegarde de la table d'index sur disque. 


- Accès indexé avec index continu sur disque en ordre 
croissant. 


- Accès indexé avec index à deux niveaux. 
- Exemple d'index TRS 80. 
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De nombreuses méthodes existent, plus ou moins simples à 
programmer. Leur choix se fait en fonction des exigences de 
l'application et des particularités des fichiers utilisés. 


ACCES INDEXE AVEC TABLE DE CORRESPONDANCE EN MEMOIRE CENTRALE 


Dans la version la plus simple de l'accès indexé, la table de 
correspondance est résidente en mémoire centrale et se consti- 
tue en début de session par la lecture séquentielle de tout 
le fichier : 


TABLE D'INDEX FÎCHIER 
EN MEMOIRE CENTRALE 


Lorsque cette table n'est pas triée, sa consultation est 
nécessairement séquentielle mais relativement rapide si les 
clés ne sont pas trop nombreuses. Il suffit ensuite d'un accès 
disque pour retrouver l'enregistrement associé à la clé. 


Mais plusieurs dizaines de secondes sont nécessaires à la 
constitution de la table si le fichier a une taille importante. 
Aussi cette méthode n'est guère exploitable dès que le nombre 
d'enregistrements physiques du fichier devient important (au- 
delà d'une centaine). Cependant, elle a l'avantage d'être 
simple à programmer et aussi celui de s'adapter aisément sur 
une application existante par l'appel de 2 sous-programmes 
l'un de création de l'index, l'autre de recherche de la clé. 


Si la table d'index est en ordre croissant, la recherche s'y 
fait par dichotomie et devient ainsi plus rapide. 


Seules les premières lettres des clés pourront être stockées 
dans la table d'index. Ceci contribuera à réduire à la fois la 
place mémoire occupée et les temps de comparaison de la clé 
cherchée avec les clés de la table. Mais en cas d'égalité 
entre les premières lettres de différentes clés, plusieurs 
accès disques seront éventuellement nécessaires. 


Lorsque les enregistrements physiques (repérés par un numéro) 
comportent plusieurs enregistrements logiques ayant chacun 
leur clé, on peut coder dans la table d'index, l'ensemble n° 
physique et position dans l'enregistrement physique de la 
façon suivante : 


X=(No physiquexNLOG) +POSITION 
où NLOG représente le nombre d'enregistrements logiques par 
enregistrement physique. 


Le décodage se fera par : 
No physique=INT(X/NLOG) POSITION=X MOD NLOG 


94 


10 
20 
30 
40 
50 
70 
80 
90 


LE BASIC ET SES FICHIERS 


Si la mise à jour de la table en temps réel, en cas d'ajout 
de clé, n'est pas programmée, c'est seulement à la prochaine 
constitution de la table, c'est-à-dire à la prochaine session, 
que les clés ajoutées y seront présentes. 


PRINT "IDO le 23.10.79":PRINT 

' 

L ACCES INDEXE avec TABLE d'INDEX en MEMOIRE CENTRALE 
! CONSTITUEE en DEBUT de SESSION 
U 


| | 
OPEN "R",1,"CLIEN" 
FIELD #1,10 AS N$,8 AS PN$,20 AS TL$,4 AS MT$ 


100 ! 

110 DIM NOM$(200),INDEX(200):GOSUB 190 * Appel constitution de l'index 

120 ! 

130 PRINT:INPUT " Mode? (RNI) ";MODE$ 

140 IF MODE$-"RNI" THEN GOSUB 300 

150 GOTO 130 

160 

AT ee en mnunt ons 


180 ! 
190 J 
200 F 


CONSTITUTION D'UN INDEX 


z1 
OR I=1 TO LOF(1)-1 " Lecture de tout le fichier 


210 GET #1,1 

220 IF ASC(N$)=0 GOTO 240 " Enregistrement vide? 

230 NOM$(J )=N$:INDEX(J)=1:J=J+1 * Ajout de la clé dans l'index 

240 NEXT I 

250 

260 RETURN 

270 ‘ 

280 
290 RECHERCHE INDEXEE 
300 PRINT: INPUT "Nom cherché? ";NOM$:IF NOM$="" THEN RETURN 

310 ! 

320 L=LEN(NOM$) * L'opérateur n'entre que les 

330 ! premières lettres du NOM 

340 FOR I=1 TO 200 " Lecture de la table d'index 

350 IF NOM$=LEFT$(NOM$(I),L) THEN X=1:1=200:NEXT I:GOTO 410 

360 IF NOM$(I)="" THEN PRINT:PRINT "N'existe pas":PRINT:GOTO 300 

370 NEXT I 

400 ! 

410 GET #1,INDEX(X) ‘ Le NOM est trouvé 

420 PRINT:PRINT N$,PN$,TL$ 

430 GOTO 300 

DUT RES 


460 


.Avec MICROSOFT 5. voir LOF: 


470 


L 
L 
480 ! 
490 ! CLEAR(3000) 
500 
510 ! 
520 ! 
530 ‘ 


.SUR TRS80 NEWDOS: 


REMPLACER LOF(1) par LOF(1)+1 

Avant INPUT "xxxx? ";X$ faire X$="" 
OPEN "R'","TOTO: 1" (pour unité No 1) 
PENSER à CLORE les FICHIERS 
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ACCES INDEXE AVEC SAUVEGARDE SUR DISQUE DE LA TABLE D'INDEX 


Une sauvegarde de la table d'index dans un fichier et sa 
relecture en début de session évite la perte de temps de sa 
constitution mais la sauvegarde de la table d'index doit être 
faite à chaque création de clé et non pas seulement en fin de 
session; en effet, sans cette sauvegarde, si une session était 
interrompue, l'index sur disque ne serait plus à jour pour les 
sessions suivantes. 


Si on a choisi d'avoir cette table en ordre croissant afin 
d'y faire une recherche plus rapide par dichotomie, il faut, 
bien sûr, lors d'une création de clé, insérer celle-ci dans 
la table après avoir décalé toutes les clés en aval de l'in- 
sertion, ce qui peut être relativement long. 


(Voir programme IDI1) 


_4C  UDoLés PAR ENREGISTREMENT DE 2,56 C 


SAUVEGARDE 
INDEX 


ZOE |xxx 
BALU | x x x 


TABLE D'INDEX Qu) G 
EN MEMOIRE CENTRALE 
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PRINT "ID1 le 23.10.79":PRINT 


U 

f ACCES INDEXE avec SAUVEGARDE de la TABLE d'INDEX 

’ 222222222222 2=2ZZ=ZZZ=ZZ=Z===Z=ZZ===Z=Z=========== 

! 

' INDEX EN MEMOIRE CENTRALE 
! SAUVEGARDE SUR DISQUE 

U 
NCLES 220 : LCLES =4 " Sur TRS80 NCLES=40 

DIM CLE$(NCLES ),PT$(NCLES) " LCLES= longueur clé 

OPEN "R",1," NOM"  NCLES=nombre de clés par erg 
! 

FIELD #1,10 AS N$,8 AS PN$,20 AS TL$,4 AS MT$ 


FOR I=1 TO NCLES:FIELD #1,6#(1-1) AS D$,LCLES AS CLE$(I),2 AS PT$(I):NEXT 
DIM NOM$(200) ,INDEX(200) 
' 


GET #1,1:1IF ASC(CLE$(1))=0 THEN GOSUB 960! Appel initialisation index 
GOSUB 500 " Appel lecture index 


PRINT TAB(20) "Modes:" : PRINT 

PRINT TAB(30) "CREAT : Création" 

PRINT TAB(30) "RNI : Recherche par NOM Indéxée" 

PRINT 

PRINT:INPUT " Mode? (CREAT,RNI,FIN) ";MODE$ 

IF MODE$="CREAT" THEN GOSUB 310 

IF MODES$="RNI" THEN GOSUB 900 

IF MODE$="FIN" THEN CLOSE #1:STOP 

GOTO 230 

L 

Anissa ecté ds mt en db ets mie den 6 enr évite 1 nn ein motnna Sie ms ed Ernie mt nd mn qu amies om is on ne md 
G CREATION 
GOSUB 740:ON Q GOTO 320,330,460 Appel recherche clé 


L 
PRINT "Existe deja":GOTO 310 " Q=1 : la clé existe 
ARANG=LOF(1):GET #1,ARANG " Ajout en fin de fichier 
LSET N$-=NOM$ " Transfert de NOM$ dans N$ 
LU 


INPUT "Prénom? ";PR$:LSET PN$=PR$ 

INPUT "Téléphone? ";TEL$:LSET TL$=TEL$ 
INPUT "Matricule? ";MAT:LSET MT$=MKS$(MAT) 
' 


PRINT :PRINT TAB(30):R$="":INPUT "OK? ";R$:1IF R$><"O" GOTO 320 
PUT #1,ARANG 


PRINT:PRINT TAB(30) "J'ai RANGE votre NOM en:" ;ARANG:PRINT 
NOM$(IND)=NOM$: INDEX(IND)=ARANG: IND=IND+1 ' MAJ de la table d'index 
GOSUB 1010 " Appel sauvegarde index 
GOTO 310 
RETURN 
lsiénisrosrcesthpisesseseiidatosisis ados acadisid M esoeniosee 
L LECTURE DE L'INDEX 
' EN MEMOIRE CENTRALE 
IND=1 " IND:pointeur table d'index 
FOR I=1 TO 5 " 5 enregistrements pour l'index 

GET #1,1 
L 

FOR J=1 TO NCLES 

IF ASC(CLE$(J))=0 GOTO 590 
NOM$(IND)=CLE $(J): INDEX(IND)=CVI(PT$(J)):IND=IND+1 

NEXT J 
LU 
NEXT I 
RETURN 
| 
! 
L 
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RECHERCHE CLE 
Q=1 :clé trouvée 
Q=2 :cl6 n'existe pas 


! 
! 
LU 
L 
1 
' 
' 
! 
U 
PRINT:NOM$="":INPUT "Nom? ";NOM$:IF NOM$="" THEN Q=3:RETURN 
' 
L 
U 


=LEN (NOM$):W=1 ‘ L'opérateur n'entre que les 
" premières lettres du NOM 
FOR I=W TO 200 " Consultation de la table d'index 


IF NOM$(I)="" GOTO 830 
IF NOM$=LEFT$(NOM$(I),L) OR NOM$(I)=LEFT$(NOM$,LCLES) THEN GOTO 850 
NEXT I 


Q=2:RETURN 

' " Une clé de l'index égale au 

GET #1,INDEX(I) " nom cherché a été trouvée 

IF NOM$=LEFT$(N$,L) THEN ARANG=INDEX(I):Q=1:RETURN 

W=1+1:GOTO0O 780 Nom cherché>< Nom dans le fichier 
linda silisiné sde stands nombre 
L RECHERCHE INDEXEE 

GOSUB 740:0N Q GOTO 910,920,930 Appel recherché clé 

PRINT:PRINT N$,PN$,IL$:GOTO 900 " La clé existe 


PRINT:PRINT "N'EXISTE PAS ":GOTO 900 ©‘ La clé n'existe pas 
RETURN 


PRINT :PRINT "INITIALISATION INDEX":PRINT "INITIALISATION DE L'INDEX 
FOR 1=1 TO 5:GET #1,1:PUT #1,I:NEXT I ‘avec valeurs ASCII nulles 
RETURN 
ls sms species des re ones did oe ce Vs dau a anse a du ae A a uns ui mc mA min institue to at mich 
! SAUVEGARDE INDEX 
K=1 
FOR I=1 TO 5 " 5 enregistrements pour l'index 
GET #1,1 
L 
FOR J=1 TO NCLES 
IF NOM$(K)="" THEN PUT #1,1:RETURN 
LSET CLE$(J)=NOM$(K):LSET PT$(J)=MKIS$(INDEX(K)):K=K+1 
NEXT J 
! 
PUT #1,1 


.Avec MICROSOFT 5. voir LOF 

.SUR TRS80 NEWDOS: 
Remplacer LOF(1) par LOF(1)+1 
CLEAR(3000) 


Avant INPUT "xxxx? ";X$ faire X$="" 
OPEN "R","TOTO:1" (pour unité No 1) 
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INDEX CONTINU SUR DISQUE EN ORDRE CROISSANT 


La présence en mémoire centrale d'une table d'index de taille 
importante peut être évitée de la façon suivante 


- Les clés sont rangées en ordre croissant dans un fichier 
index et une table d'index en mémoire centrale, de taille 
réduite, contient la première clé de chaque enregistrement du 
fichier index. Lors de la recherche d'une clé, une première 
opération permet de trouver l'enregistrement de l'index où 
celle-ci est située. 

- Après avoir retrouvé la clé dans le fichier index, il est 
possible d'accéder à l'enregistrement associé à cette clé. 
Deux accès disques ont donc été nécessaires pour accéder à 
l'enregistrement cherché. 


- De façon à maintenir le fichier index en ordre croissant, 
chaque nouvelle clé est insérée directement à sa place après 
avoir décalé toutes les clés en aval de l'insertion. Aussi le 
temps nécessaire pour un ajout de clé peut il être long lorsque 
le nombre de clés devient important. (quelques secondes). Si 

on considère que les ajouts de clés sont généralement beaucoup 
plus rares que les consultations, ceci est acceptable. 


— Notons que le temps d'insertion d'une clé sera d'autant plus 
court que les enregistrements du fichier index seront plus 
longs puisque pour un même nombre de clés, il y aura moins 
d'enregistrements à décaler. 


INDEX DEUX NIVEAUX 


Plutôt que d'insérer des clés dans un fichier index continu, 
il est possible d'allouer les enregistrements de cet index 
dynamiquement. 


À la création de l'index n'existe qu'un index de niveau 0. 
Un index de niveau 1, constitué dynamiquement au fur et à 
mesure des ajouts de clés, doit être vu comme un index continu 
en ordre croissant (mais, physiquement, c'est seulement à 
l'intérieur de chaque enregistrement de l'index 1 que l'ordre 
croissant des clés doit être maintenu). 


Lorsqu'une insertion est faite dans un bloc (enregistrement) 
plein suivi d'un autre bloc plein, un nouveau bloc, qui reçoit 
la dernière clé du premier bloc plein est alloué. La "continui- 
té" de l'index 1 est assurée grâce à l'index 0. Tout se passe 
comme si nous avions inséré dans un index continu des "trous" 
qui seront utilisés lors d'insertions ultérieures de clés. 


Ainsi il n'y a de décalages de clés qu'entre 2 blocs tout au 
plus. Pour des enregistrements de 256 caractères, l'index 
pourra contenir jusqu'à 40x40=1600 clés. 


TABLE DNDEX NIvEAUg  e+INDEX NIVEAU 4 (Ficuier) 


EN ORPRE CROISSANT eCLES En ORDRE A 
+ CONTIENT LES L'INTERIEUR DE CHAQUE 
PRemieres CLeS Des ENREGISTREMENT .FiCHieR PRINCIPAL 


ENREGISTREMENTS 
Du Fichier INXx 
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Différents cas d'insertions de clés: ALLOC —<+ ALLOCATION D'UN NOUVEAU BLOC 
TT DECAL— DECALAGE ENTRE 2 BLocs 


- 11 y a une place INSERTION de BÉATRICE 
libre dans le bloc _ pr — 7 
de l'index où l'on RE Has HEnaE A vive ] 


insère : ALLOC = g : DECAL = S 


- 11 y a une place proc 
libre dans le bloc PLEIN 
suivant 

groc 
NON PLEIN 


ALLOC=S DECAL= À 


- 11 n'y a pas de place INSERTION 
libre dans le bloc Dd 


suivant 
insertion dynamique NA PRES 
' NOUVEAU BLOC 
d'un nouveau bloc raotc À s 
+ décalage entre 2 blocs ÆZNDEX ALLOC= À : DECAL=A 
MVEAU 


+ mise à jour de la 
table index de 
niveau ÿ 


- Ajout de bloc simple -LZ | 


ALLOC = À : DEcaL = 


ACCES INDEXE TRS80 


Cet index, relativement simple à mettre en oeuvre, a pour 
inconvénient d'être limité en capacité si les enregistrements 
ont une longueur de 255 caractères au maximum (env. 300 noms). 


L'allocation dans le fichier index de 2 enregistrements pour 
chaque groupe de 2 lettres permettrait de doubler la capacité. 


L'allocation dynamique des enregistrements du fichier, grâce 
à une pseudo "Bit-Map", évite d'avoir à réorganiser périodi- 
quement le fichier lorsque les enregistrements supprimés 
doivent être récupérés. 


Une simple lecture séquentielle du fichier index (en ordre 
croissant) fournira une liste triée des noms : 


10 FOR I=1 TO 13 " 13 enregistrements dans l'index 
20 GET #2,1 
® MXMUN:nombre de clés 


30 FOR J=1 TO MXMUN 

Lio) IF CVI(PT$(J))=20 THEN GOTO 80 ‘ Pointeur vide? 
50 GET #1,CVI(PT$(J)) 

60 PRINT N$ 

70 NEXT J 

80 NEXT I 
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Remarquons qu'un index détruit peut être regénéré simplement 
par la lecture séquentielle du fichier principal et par 
l'appel des sous-programmes de recherche et d'ajout de clé 
déjà écrits. Une Bit-Map se regénère également simplement. 


FICHIER INDE x 


Sp cLes PAR ENREGISTREMENT 
D 256 CARACTÉRES 


Fichier PRINCIPAL 
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10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 


210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 


370 
380 
390 
400 
410 
420 
430 
440 


450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
615 
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ID5 
INDEX TRS80 (1 ENREGISTREMENT LOGIQUE PAR ENREGISTREMENT PHYSIQUE) 


ALLOCATION DYNAMIQUE des ENREGISTREMENTS du FICHIER PRINCIPAL 
(Gestion par BIT-MAP) 


MXMUN=25: TENREG-=128 " Faire MXMUN=50:TENREG=254 sur TRS80 
DIM PT$(MXMUN) ,CLE $(MXMUN) ,BMAP$(TENREG) 

OPEN "R",1,"TOTUS" :OPEN "R",2,"ITOTU" 

FIELD #1,12 AS N$ ! Voir dessin 
FOR 1-1 TO TENREG:FIELD #1,(1-1) AS D$,1 AS BMAP$(I):NEXT I 

FOR 1=1 TO MXMUN:FIELD #2,5#(1-1) AS D$,2 AS PT$(I),3 AS CLE$(I):NEXT I 


INPUT "NOM? ";NOM$:IF NOM$="FIN" THEN CLOSE #1,#2:STOP ‘ Sequence d'essai 
! 

GOSUB 500:IF Q><1 THEN GOTO 150 ELSE GOSUB 220:0N Q GOTO 180,200, 150 

PRINT N$:GOTO 150 


INPUT "Nouveau NOM OK? ";R$:IF R$><"O" GOTO 150 ELSE LSET N$=NOM$: 
PUT #1,ARANG:GOSUB 430:GOTO 150 

finnois aiassesss russes passants ducs sséessi us eines 
GET #2,1X "RECHERCHE CLE 
FOR M=1 TO MXMUN 

IF CVI(PT$(M))=0 THEN FR=M:GOTO 270 
NEXT M 
LU 
FOR M=1 TO MXMUN "#1 ---> FICHIER PRINCIPAL 

IF CVI(PT$(M))=0 GOTO 390  'ARANG -->ADRESSE ENREGISTREMENT du FP 

IF CLE$<CLE$(M) GOTO 390 "IX —> ADRESSE FICHIER INDEX 

IF CLE$-CLE$(M) GOTO 340 


NEXT M 
' 


IF CVI(PT$(M))=0 GOTO 390 
ARANG=CVI(PT$(M)):GET #1,ARANG 
IF NOM$<LEFT$(N$,LEN(NOM$)) GOTO 390 
IF LEFT$(N$, LEN(NOM$))=NOM$ THEN 
INSER=M: Q=1:RETURN " Cle trouvee Q=1 
M=M+1:GOTO 330 
' 


INSER-M:GOSUB 640:GET #1, ARANG:Q=2 " Cle non trouvee Q=2 
IF CVI(PT$(MXMUN-1))><0 THEN PRINT "INDEX PLEIN" :Q=3:RETURN 
RETURN 
! 
GET #1,1:LSET BMAP$(ARANG)=CHR$(1):PUT #1,1 ! AJOUT CLE 
FOR U=FR-1 TO INSER STEP -1: 
LSET CLE$(U+1)=CLE$(U):LSET PT$(U+1)=PT$(U):NEXT U 
LSET PT$(INSER)=MKI$(ARANG):LSET CLES$(INSER)=CLE$ 
PUT #2,1X 


£ " CALCUL ADRESSE INDEX 
CLE $=LEFT$(NOM$, 3) C 1<=IX<=:13 ) 
IX=ASC(LEFT$(NOM$, 1))-64 

IX=INT((IX+1)/2):Q=1:IF IX<1 OR IX>13 THEN Q=2 


' SUPPRESSION ENREGISTREMENT DE LA BIT-MAP 
GET #1,1:LSET BMAPS$(ARANG)=CHR$(O):PUT #1,1 
FOR U=INSER TO FR-1:LSET PT$(U)=PT$(U+1):LSET CLE$(U)=CLE$(U+1):NEXT U 

PUT #2,IX:RETURN 
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620 
630 
640 
650 


660 
670 
680 
690 
700 
730 
740 


750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
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! RECHERCHE ENREGISTREMENT DANS BIT-MAP 
GET #1,1 
IF BMAP$(TENREG)»><"#" THEN PRINT "INITIALISATION INDEX (WAIT) ": 
PRINT :GOSUB 740 
| 
FOR W=2 TO TENREG 
IF ASC(BMAP$(W))=0 THEN ARANG=W:RETURN 


' INITIALISATION 
FOR P=1 TO TENREG:LSET BMAP$(P)=CHR$(O):NEXT P: 
LSET BMAP$(TENREG)="#":PUT #1,1 
FOR P=1 TO 13 
GET #2,P:FOR Q=1 TO MXMUN:LSET PT$(Q)=MKI$(O):NEXT Q:PUT #2,P 


NEXT P 

RETURN 

moment nn S énismaciteses see és ei dis pdidintinsen ass Son ei Sas eS nas Slt té Com ne 5 calmes ex 
L 

"EXEMPLE: 

' NOM $= "MARTIN" 

' GOSUB 500:GOSUB 220 :ON Q GOTO X,Y 
' X CLE TROUVEE 

! 

' Y :GOSUB 430 (AJOUT ) 

L 

U 
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CHAPITRE 3-3 
LES BASES DE DONNEES 


L'utilisateur de P.S.I. de gestion se trouve confronté à 
des problèmes de consultations et de mises à jour de données 
en temps réel ; il est donc amené à faire une approche de 
son problème sous forme de base de données. 


Il n'existe pas encore de Système de Gestion de Base de 
Données logiciel (SGBD) sur les micro-ordinateurs de gestion, 
ne serait-ce que pour des raisons d'encombrement en mémoire 
centrale. D'ailleurs, peut-être ne sont-ils pas souhaitables ; 
en effet, si le SGBD soulage le programmeur de la gestion des 
pointeurs, de la gestion des sécurités contre les destruc- 
tions physiques et définit un langage commun, il peut aussi 
être d'une utilisation moins souple que des fichiers élaborés 
(indexés avec allocation dynamique). 


Qui dit base de données dit pointeurs entre enregistrements 
de plusieurs fichiers. Pointeurs que l'utilisateur devra 
gérer lui-même et contrairement à une idée répandue, ceux-ci 
se gèrent sinon simplement, du moins avec peu d'instructions. 
- Pourquoi les bases de données. 

- Gestion pointeurs. 


- Sécurités contre les destructions physiques de fichiers. 


- Exemple de base de données : gestion de commandes et 
livraisons clients-fournisseurs. 
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POURQUOI LES BASES DE DONNEES 


Soit à gérer des instructions à des cours : supposons que 
ces inscriptions soient enregistrées dans un fichier au fur 
et à mesure de leur arrivée. (figure 1) 


Il n'est pas possible avec ce RANGEMENT DANS 
fichier de vérifier immédiatement ORDRE PARAIT 


avant d'inscrire une personne à un [DbuPonr|xxxx]marns] 
cours s'il reste des places dispo- [mantin|x xxx [MArus 
nibles pour ce cours, et si cette SEE 
personne n'est pas déjà inscrite à p 
LPONT| x x x x_|Puysiquel 


ce cours ; en effet, l'exploration Fe pet 


d'un fichier de 1 000 enregistre- 
IvscriPrio” À DES cours 


ments par exemple demande 50 secon- 
des si le temps d'accès à un 
enregistrement est de 50 millise- 
condes. 


De même, la recherche de tous les participants inscrits à 
un cours déterminé ne peut pas se faire en moins de 50 secon- 
des. 


En outre, les renseignements concernant un participant sont 
saisis et stockés autant de fois que celui-ci est inscrit à 
différents cours. 


Rendons indépendants les participants des cours en éclatant 
le fichier précédent en un fichier des participants et un 
fichier des cours. (figure 2) 


Nous pouvons ranger les participants ainsi que les cours en 
fin de fichier et prévoir un index pour y accéder directement. 


PARTICIPANTS 


FiCHIER Des COURS Fichier DES PARTICIPANTS 


Etablissons ensuite les liens entre les enregistrements de 
ces deux fichiers : 


- Dans chaque enregistrement du fichier cours, indiquons les 
numéros des enregistrements des participants inscrits au cours 
correspondant (pointeurs). 


- De même notons dans ie fichier des participants les numéros 
des enregistrements des cours suivis par chaque participant. 


On peut maintenant, lors de l'inscription d'un participant 
à un cours, vérifier si ce participant existe déjà, s'il 
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reste des places disponibles pour ce cours et s'assurer grâce 
aux pointeurs que ce participant n'est pas déjà inscrit à ce 
cours. 


Une liste de tous les participants à un cours peut être 
obtenue immédiatement à l'aide des pointeurs. 


Chaque "pointeur" ne nécessite que peu de place (2 octets 
permettant de numéroter 64 000 enregistements dans les 
fichiers). 


11 est possible d'indiquer dans les enregistrements des 
cours non plus les numéros des enregistrements des partici- 
pants mais directement les noms de ceux-ci. (figure 3) On 
parle alors de pointeurs logiques qui ont l'avantage de rendre 
le fichier des cours physiquement indépendant du fichier des 
participants ; en effet, si un participant qui aurait été 
rangé dans un fichier à accès direct est déplacé à l'occasion 
d'une réorganisation de ce fichier, il n'y a pas à modifier 
les pointeurs correspondants dans le fichier des cours. Par 
contre, ces pointeurs logiques exigent beaucoup plus de place 
(10 octets au lieu de 2 par exemple), et il faudra systémati- 
quement recourir à l'index pour retrouver les participants. 


M Duronr 


POINTEURS "LOGIQUES”" 


GESTION DES POINTEURS 


Ajouts d'éléments dans une chaîne 


Soient un fichier de clients et un fichier de commandes. Si 
chaque client a plusieurs commandes que l'on désire retrouver 
immédiatement, un chaînage de celles-ci entre elles, au fur et 
à mesure de leur arrivée, est nécessaire (figure 4). 


Le plus simple est d'ajouter toute nouvelle commande en 
début de chaîne. 


eo PcmDe | xxxx CORAN DE 


ADRCOM = sg 


Fichier cuienrs (Fichnom) 


AJOUT D'UNE COMMANDE y 
FicuiER CommanDs (Fichcom) 


Nous lisons d'abord en mémoire centrale l'enregistrement du 
client et celui de la commande à ajouter (à moins qu'ils n'y 
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soient déjà) puis nous procédons à la mise à jour des poin- 
teurs CSUIVS8,PCOMS et PNOMS. 


GET FICHNOM,ADRNOM * Lire d'abord les ENREGISTREMENTS 
GET FICHCOM, ADRCOM : en MEMOIRE CENTRALE 
LSET CSUIV$=PCOM$ * Transférer pointeur PCOM$ dans pointeur CSUIV$ 


LSET PCOM$=MKI$(ADRCOM) ‘ Transférer adresse nouvelle commande dans PCOM$ 
LSET PNOM$=-MKI$(ADRNOM) ‘ Transférer adresse client dans PNOM$ 


PUT FICHNOM, ADRNOM * Ranger le client 

PUT FICHCOM,ADRCOM * Ranger la commande 

Remarques : À la création d'un nouveau client, le pointeur 
"PCOMS" est initialisé par LSET PCOM8="#" . L'insertion dans 


une "chaîne" peut être faite de façon à ce que les éléments 
soient dans un certain ordre. 


Lecture d'une chaîne : Pour retrouver toutes le commandes d'un 
client, dont nous connaissons l'adresse de rangement ADRNOM, 
nous programmons la séquence suivante : 


GOSUB LECTURE : STOP " On connait ADRNOM 
LECTURE: GET FICHNOM, ADRNOM " Lecture du client 
IF PCOM$="# " THEN RETURN " Chaîne vide ? 
COM=CVI(PCOM$) 
BCL:GET FICHCOM,COM:PRINT NUMCOM$ " NUMCOM$-Zone numéro de commande 
IF CSUIV$="# " THEN RETURN ‘ Fin ? 
COM=CVI(CSUIV$):GOTO BCL " Commande suivante 
Exemple : Séquence pour une commande de matériels 


Regardons sur une séquence complète d'une commande de maté- 
riels comment va s'effectuer le chaînage des commandes d'un 
CLIENT. 


Tout d'abord on RECHERCHE le CLIENT : pour cela, un sous- 
programme chargé de cette recherche est appelé, et si le client 
n'existait pas, de le créer, sans qu'il soit nécessaire de 
passer par un ‘mode création'. Le pointeur "PCOMS' vers les 
commandes étant dans ce cas initialisé avec "#" (fin de chaîne). 


Le sous-programme CLIENT appelle lui-même un sous-programme 
CAL-ADRNOM chargé de rechercher l'enregistrement où se trouve 
le client si celui-ci existe déjà, sinon de rechercher un en- 
registrement libre où le ranger. Ce dernier sous-programme 
positionne un indicateur Q soit à 1 si le client existe, soit 
à 2 s'il n'existe pas, permettant ainsi au sous-programme 
appelant CLIENT, par le test de Q, de savoir s'il doit faire 
la saisie du client. 


Donc, au retour de ce sous-programme 'CLIENT', le client 
existera de toute façon (sauf si l'on avait répondu par un RC 
à la question ‘CLIENT ?' pour signifier un changement de mode 
par le positionnement d'un indicateur Q à 2 analyse au retour 
du sous-programme) . 


Ce sous-programme CLIENT peut être appelé par une autre 
partie du programme. Par exemple un mode qui permet de créer 
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un nouveau client. On remarque que ce mode ne nécessite que 
2 instructions. 


CREACLIENT: GOSUB CLIENT : ON Q GOTO CREACLIENT, DEBUT 


.Q=2 l'utilisateur veut changer de mode 


Les coordonnées d'un client doivent pouvoir être modifiées. 
Aussi la séquence correspondant à la saisie du client sera-t- 
elle transformée en un sous-programme que l'on appelera égale- 
ment d'un mode "MODIFICATION CLIENT'. 


Appelons maintenant un sous-programme CAL-ADRCOM chargé de 
rechercher un enregistrement libre dans le fichier des comman- 
des où la commande peut être rangée. Si celle-ci existe déjà, 
ce sous-programme positionne un indicateur Q à 1 et au retour 
de ce sous-programme nous refusons bien sûr d'entrer une 
commande qui existe déjà. 


Saisissons ensuite la commande elle-même. 


- Pour cela nous allons consulter un fichier des matériels. Là 
encore, c'est un sous-programme qui est chargé de retrouver un 
matériel et de le créer s'il n'existe pas (sans changer de 
mode). 


- Ce sous-programme pourra aussi servir à la saisie d'un nou- 
veau matériel indépendamment de la saisie d'une commande. 


Avant d'écrire effectivement la commande dans le fichier, 
nous demandons à l'opérateur s'il est d'accord. 
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COMMANDES de MATERIELS 


Sous-Programme chargé de RECHERCHER 
un CLIENT: Le CREÉE s'il n'EXISTE PAS 


RETOUR: Q=1 OK 


Q=2 FIN 


CLIENT:INPUT "Client? ";CLIENTS$ 


DEBUT: INPUT "Mode? ";MODE$ 

IF MODE$="COMMANDE" GOTO COMMANDE 

IF MODE$=" " GOTO 
! 
! 
V 

GOTO DEBUT 

COMMANDE : GOSUB CLIENT: ON Q GOTO 1, DEBUT 


1: INPUT "COMMANDE? ";COM$ 
IF COM$="" GOTO COMMANDE 


GOSUB CAL-ADRCOM: ON Q GOTO 2, 


Lo 


PRINT 
IN PUT 


"Com existe déjà": goto 
"Date? "; 


wo 


4: GOSUB MATERIEL: ON Q GOTO 5,6 


5: INPUT "Combien? " ‘plusieurs 
INPUT "Delai 7? " ‘matériels 
INPUT "Prix 2? " ‘par comman 


SEQUENCE NON ETUDIEE 


GOTO 4 


6: 


INPUT "Commande OK? ";RP$ 
IF RP$><"O" GOTO COMMANDE 


LSET CSUIV$=PCOM$ 
LSET PCOM$=MKI $(ADRCOM) 
LSET PNOM$=MKI $ (ADRNOM) 


pointeurs 


PUT FICHNOM, ADRNOM 
PUT FICHCOM, ADRCOM 


Remarquez les indicateurs 'Q' 
positionnés par les sous-programmes 
et analyses au retour par: 


ON Q GOTO xx ,xx 


IF CLIENT$="" THEN Q=2:RETURN 


GOSUB CAL-ADRNOM:ON Q GOTO 1,2 
3 


INPUT "Nouv CLIENT ? ";RP$ 
IF RP$><"O" GOTO CLIENT 


1 


INPUT "Adresse ? " 
INPUT "Teleph 7? " 


LSET PCOM$= "#1 4— inifialisation du 
PUT FICHNOM, ADRNOM [bé 


de 


1: Q=1:RETURN 


Sous-Programme chargé de RECHERCHER un 
MATERIEL :Le CREE s'il n'EXISTE PAS 


RETOUR : 


Q=1 OK 
Q=2 FIN 


- 


GOSUB CAL-ADRMAT:ON Q GOTO 1,2 


MATERIEL: INPUT "Matériel? ";MATERS$ 
IF MATER$="" THEN Q=2:RETURN 


INPUT "Nouv MATERIEL ? ";RP$ 
IF RP$><"O" GOTO MATERIEL 


INPUT "Libellé ? "; 
INPUT "Prix EAU 


1: Q=1:RETURN 
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Suppressions d'éléments dans une chaîne (figure 6) 


Supposons que nous voulions supprimer une commande à laquelle 
nous venons d'accéder directement (par un index par exemple). 
Le pointeur de la commande précédente (dans la chaîne) doit 
être mis à jour. Pour retrouver celle-ci, nous nous position- 
nons d'abord sur le client (grâce au pointeur PNOMS) puis nous 
explorons la chaîne jusqu'au moment où nous retrouvons la 
commande à supprimer. Nous procédons alors à la mise à jour. 


poto > ads [urenr [rx [9 


"à COMMANDE 
consup +226 |cmDe3 SUPPRIMEE 
FicHieR CLIENTS (FicHNOM ) 
SUPPRESSION D'UNE_ Commande FiCHIER COMMANDES 
GOSUB SUP :STOP " On connait l'adresse de la commande 
à supprimer (COMSUP). 
ADRNOM=CVI (PNOM$) " Calcul de ADRNOM 


SUP:GET FICHNOM, ADRNOM 
IF PCOM$="# " THEN PRINT "Chaîne vide" :Q=3:RETURN 
IF CVI(PCOM$)=COMSUP THEN GET FICHCOM,CVI(PCOM$):LSET PCOM$=CSUIV$: 
PUT FICHNOM, ADRNOM : Q=1:RETURN 
" C'était la 1ère commande 
X=CVI(PCOM$) * Adresse première commande 


BCL: GET FICHCOM,X 
IF CVI(CSUIV$)=COMSUP THEN GET FICHCOM,CVI(CSUIVS$):Y$=CSUIVS$: 
GET FICHCOM,X:LSET CSUIV$=Y$: PUT FICHCOM, X:Q=1:RETURN 


IF CSUIV$="# " THEN PRINT "Commande non trouvée" :Q=2:RETURN 


X=CVI(CSUIV$):GOTO BCL 


Si la commande sur laquelle nous étions positionné, au 


départ, n'est pas retrouvée par le chaînage, nous signalons 
l'anomalie à l'opérateur. 


Un chaînage détruit peut être régénéré en recherchant toutes 
les commandes qui "pointent" vers le même nom. 


Remarquons qu'avec un "chaîfnage arrière", la commande précé- 


dant la commande à supprimer, serait retrouvée directement 
sans lire toute la chaîne. 


S'il est possible de connaître le nombre maximum de comman- : 
des pour un client, (5 par exemple), il est réservé autant de 
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pointeurs qu'il peut y avoir de commandes. La gestion des 
pointeurs devient dans ce cas sensiblement plus simple pour 
les suppressions (figure 7). 


NBmAx 


Nha PConS 


mon —+ EPS EPP E77 Rte 


AJOUTE 


AJOUT D'UNE COMMANDE 


Ajout 


Les enregistrements d'adresse ADRNOM et ADRCOM sont en 
mémoire centrale 


GOSUB AJOUT : STOP 


AJOUT :FOR [I=1 TO NBMAX-1 (Recherche d'un pointeur libre) 
IF CVI(PCOM$(I))=0 THEN 
LSET PCOMS$(I)=MKI $(ADRCOM) : LSET PNOMS$=MKI $(ADRNOM) : 
PUT FICHNOM,ADRNOM: PUT FICHCOM, ADRCOM : Q=1: RETURN 
NEXT I 


PRINT "Il n'y a plus de pointeur libre" :Q=2:RETURN 
Suppression 


L'adresse de la commande à supprimer COMSUP est connue. On 
iit d'abord l'enregistrement du client dont l'adresse nous est 
donnée par PNOMS. Puis le pointeur PCOMS correspondant à la 
commande à supprimer est effacé. 


GOSUB SUP:STOP " On connait COMSUP 


ADRNOM=CVI(PNOM$):GET F ICHNOM, ADRNOM 
SUP: FOR 1=1 TO NBMAX-1 
IF CVI(PCOM$(I))=COMSUP THEN FOR V=I TO NBMAX-1: 


LSET PCOM$(I)=PCOM$(I+1):NEXT V:PUT FICHNOM, ADRNOM:Q=1: RETURN 
NEXT I 


PRINT "Pointeur non trouvé" :Q-=2:RETURN 


Le "tassement" des pointeurs, de façon à ne pas avoir de 
"trou", n'est nécessaire que si les commandes doivent être 
retrouvées dans leur ordre d'arrivée. 


SUPPRESSION D'UNE COMMANDE 


POINTEUR SOWRIME 


AVANT 


Dex [tItIX 
® 
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Sécurités pointeurs (figure 9) 


POiNTeur 


GPa 
% Fichier js 


Fichier DeS Cours PARTICi PANTS 


ADRCOURS 


2 POINTEURS CRÉES FOUR UNE INSCRIPTION 


Soient un fichier des cours et un fichier des participants 
à ces cours. Lorsqu'un participant est inscrit à un cours, 
2 pointeurs sont créés : 
1 pointeur cours --+ participant 
1 pointeur participant --—+ cours 


Ces pointeurs permettront de retrouver respectivement tous 
les participants à un cours et tous les cours suivis par un 
participant. 


Après avoir saisi une inscription à l'écran, nous écrivons 
dans 2 fichiers : le fichier des cours et celui des partici- 
pants. 


PUT FICCOURS, ADRCOURS 
<—---- PROGRAMME INTERROMPU 


PUT FICPARTI,ADRPARTI 


Si le programme est interrompu entre les 2 écritures, seul 
un des 2 pointeurs est créé. Par conséquent, de façon à li- 
miter le risque d'interruption entre 2 instructions d'écriture 
sur fichier, celles-ci doivent se suivre. Et, afin de détec- 
ter, malgré tout, les incohérences de pointeurs, nous 
vérifions lorsque nous accédons à un enregistrement d'un 
fichier par l'intermédiaire d'un pointeur, que dans cet enre- 
gistrement le "pointeur réciproque" vers l'enregistrement où 
nous avions trouvé le premier pointeur existe bien. 


Par exemple, lorsque nous sommes positionnés sur un cours 
et que nous allons lire dans le fichier des participants ceux 
inscrits à ce cours, nous vérifions que chacun de ces parti- 
cipants possède bien un pointeur vers ce cours. 


GOSUB VERIF:STOP 

VERIF: FOR I=1 TO NBPOINTCOURS 
IF CVI(PCOURS$(I))=ADRCOURS THEN Q=1:RETURN 
NEXT I 


PRINT "IL MANQUE UN POINTEUR" :Q=2: RETURN 
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Si ce n'est pas le cas, l'opérateur doit en être averti. La 
possibilité d'autocorrection de l'erreur, par ajout du poin- 
teur manquant, aura été prévue. 


Les pointeurs réciproques permettront de détecter une perte 
accidentelle d'un enregistrement qui ne l'aurait pas été par 
ailleurs (et que l'on récupèrera sur une sauvegarde). 


Sécurités contre les destructions physiques de fichiers 


(figure 10) 
Rappelons une règle qui n'est pas toujours connue : 


En temps réel, des sauvegardes périodiques des fichiers, 
fussent-elles très rapprochées, ne sont pas suffisantes puis- 
qu'en cas de destruction d'un fichier toutes les modifications 
sur celui-ci, depuis sa dernière sauvegarde sont perdues. Il 
est donc nécessaire de garder une trace de celles-ci dans un 
autre fichier (sur une autre disquette). 


Ainsi, si un des fichiers mis à jour est détruit, il est 
régénéré grâce à sa dernière sauvegarde et aux modifications 
depuis cette sauvegarde. Dès que les fichiers des modifica- 
tions deviennent trop importants, une nouvelle sauvegarde des 
fichiers est faite puis les fichiers des modifications sont 
“remis à zéro". 


Remarque : La mise à jour d'une sauvegarde à l'aide des modifi- 
cations est plus rapide qu'une sauvegarde complète. 


N° DES ENREGISTREMENTS 


MODIFIÉS 
CE FICHIER 
c vos 
Az 
SAUVEGARDE 
= PRINCIPAL 
POET 


FIGHIER PRINCIPAL HIS A TOUR FILMIER DES MODIFICATIONS 
SÉCWRAITÉS CONTRE LES DESTAUTIONS PHYSIQUES 


CAGÉS DEPuiS 
LA DERNIÈRE 
SAUVESARDE 


EXEMPLE DE BASE : GESTION DE COMMANDES ET 
LIVRAISONS CLIENTS-FOURNISSEURS 


Cette base de données (figure 11) doit permettre de gérer 
des commandes provenant de clients ainsi que celles émises vers 
des fournisseurs. La gestion des stocks peut donc être prévi- 
sionnelle. 


Au moment de l'établissement d'une commande CLIENT, il est 
possible de savoir si un matériel est livrable pour une cer- 
taine date, en prenant en considération : 

— le stock actuel 
- les commandes clients 
- les commandes fournisseurs. 
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L'état des différentes livraisons d'une commande ainsi que 
le solde à livrer sont connus en temps réel. 


Nous avons choisi d'avoir un accès direct sur tous les 
fichiers (clients, commandes, livraisons, matériel). En 
‘entrant' dans la base par un numéro de livraison, il est pos- 
sible, grâce aux pointeurs, de 'remonter' vers la commande 
correspondante puis vers le client. 


Cette base se constitue dynamiquement. Par exemple, lors de 
l'établissement d'une commande, si un matériel n'existe pas, 
il y a appel d'un sous-programme de création d'un nouveau 
matériel. Il en est de même pour les clients. 


Gestion client-commandes 


Nous n'avons programmé que la saisie client et la gestion du 
chaînage des différentes commandes de chaque client. L'accès 
indexé, programmé pour les clients, ne l'a pas été pour les 
commandes. Il doit bien sûr être ajouté si on veut accéder 
directement à une commande par son seul numéro sans avoir à 
connaître le client qui peut être ensuite retrouvé grâce au 


pointeur PNOMS. 
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10 PRINT "BDCOM le 1.1.80":PRINT 
20 
30 ! GESTION CLIENT-COMMANDES 
40 ! sssszssszssssszszsssszzsss 
50 
60 OPEN "R",1,"CLIEN":OPEN "R",2,"COM" 
70 FIELD #1,20 AS N$,25 AS RUE$,15 AS VILLE$,5 AS CPOST$,20 AS TL$,2 AS PCOM$ 
80 FIELD #2,12 AS NCOM$,50 AS D$,2 AS CSUIV$,2 AS PNOM$ 
' 


90 

100 DIM NOM$(200),INDEX(200) 

110 GOSUB 850 * Appel constitution de l'index client 
120 

130 PRINT:INPUT " Mode? (COM,LCOM,FIN )";MODE$ 

140 IF MODE$="COM" GOTO 200 " Commande 

150 IF MODE$="LCOM" GOTO 710 " Liste les commandes d'un client 


160 IF MODES$="FIN" THEN CLOSE #1:STOP 


190 MODE COMMANDE 
200 GOSUB 380:0N Q GOTO 210,130 " Appel recherche client 

210 PRINT:PRINT N$:PRINT :ACOM=LOF(2):PRINT "No commande:";ACOM 

220 GET #2,ACOM 


230 

240 PRINT:PRINT " Saisie COMMANDE:":PRINT 

250 PRINT :INPUT " No Commande? ";X$:LSET NCOM$=X$ 

260 

270 ! saisie commande a completer 

280 

290 PRINT:INPUT " Commande OK? ";R$:IF R$><"O" GOTO 200 
300 

310 LSET CSUIV$=PCOM$:LSET PNOM$=MKI$(ANOM) Création des pointeurs 
320 LSET PCOM$=MKI $(ACOM) " (chaînage) 
330." 


340 PUT#1,ANOM: PUT #2,ACOM 
350 GOTO 200 


360 
370 ‘ RECHERCHE/CREATION CLIENT 
380 PRINT: INPUT "Nom CLIENT? ";X$ 

390 IF X$="" THEN Q=2:RETURN " Q=2:fin du mode 

400 

410 L=LEN(X$) 

420 ? 

430 FOR I=1 TO 200 " Recherche cle dans table index 


440 IF X$=LEFT$(NOM$(I),L) THEN ANOM=INDEX(I):GET #1,INDEX(I):Q=1:RETURN 
450 IF NOM$(I)="" GOTO 480 
460 NEXT I 
470 " Le client n'existe pas 
480 PRINT :PRINT X$;:INPUT " Nouveau CLIENT? ";RP$ 
490 IF RP$»><"O" GOTO 380 
L 


500 

510 ANOM=LOF(1):GET #1,ANOM:LSET N$=X$:PRINT ' Rangement en fin de fichier 
520 INPUT "Rue ? ";X$:LSET RUES$=X$ " Saisie du nouveau client 
530 INPUT "Ville ? M";X$:LSET VILLES$=X$ 


540 INPUT "Code Post ? ";X$:LSET CPOST$=X$ 
550 INPUT "Telephone ? ";X$:LSET TL$=X$ 
L 


560 

570 LSET PCOM$="#" * Initialisation pointeur PCOM$ 
580 PUT #1,ANOM 

590 NOM$(PI)=N$:INDEX(PI)=ANOM:PI=PI+1 " MAJ de la table d'index client 
600 

610 Q=1:RETURN 

620 ! 
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630 
640 ! 
650 
660 ‘ 
670 ! 
680 ! 
690 
700 mm mm 
710 GOSUB 380:0N Q GOTO 720,130 " LISTE DES COMMANDES D'UN CLIENT 
720 PRINT:PRINT N$:PRINT 

730 PRINT TAB(20) RUE$ 

740 PRINT TAB(20) VILLES$ 

750 PRINT TAB(20) CPOST$ TAB(35) "Tel:";TL$ 
760 ! 

770 PRINT:IF PCOM$="# " GOTO 710 

780 COM=CVI (PCOM$) 

790 

800 GET #2,COM:PRINT "Commande:"; NCOM$ 

810 IF CSUIV$="# " GOTO 710 Dernière commande? 

820 COM=CVI(CSUIV$):GOTO 800 Adresse commande suivante 

830 1" " """ "  Û  —— 


Y a t-il une commande? 


840 ! * CONSTITUTION DE L'INDEX CLIENT 
850 PI=1 " Pl:pointeur table d'index 
860 


870 FOR I=1 TO LOF(1) 

880 GET #1,1 

890 IF ASC(N$)=0 GOTO 910 

900  NOM$(PI)=N$:INDEX(PI)=1:PI=PI+1 
910 NEXT I 

920 

930 RETURN 

g4o 

CE RERS 


Lecture de tout le fichier 


Enregistrement vide? 
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ANNEXE I 


RAPPELS SUR BASIC 


Connexion sous Basic 
La connexion sous un système BASIC se fait généralement par 
une commande : 
BASIC (retour chariot) pour TRS80-DTC MICROFILE 
ou 
MBASIC (retour chariot) pour BASIC MICROSOFT 5. 


Après la connexion le système BASIC répond : 
OK (OK permet de s'assurer que l'on est sous BASIC) 
(sur TRS80, le système BASIC répond READY) 


On peut alors utiliser le BASIC pour : 


- faire directement des calculs (mode direct) 
- écrire des programmes. 


Mode direct 


Frappons au clavier 
PRINT 4 (Retour chariot) 


le calculateur affiche le nombre 4. 


Entrons maintenant 


Ca | 
A=4 (Retour chariot) 


R=S (Retour chariot) 
le calculateur affecte à À et B que nous appellerons variables 
les valeurs 4 et 5. 
Si maintenant nous frappons au clavier : 
PRINT A+B 


le calculateur affiche 9 (la somme des valeurs des variables 
À et B). 


Mode programme 


Ecrivons maintenant un programme : 


10 A=4 
20 B=5 
30 PRINT A+B 


10, 20 et 30 représentent des numéros d'instructions. 


Lorsque nous demandons au calculateur d'exécuter le programme 
par la commande 'RUN', les instructions s'exécutent les unes 
après les autres dans l'ordre de leur numérotation. 


RUN (retour chariot) 
9 est affiché à l'écran. 


Le programme est réexécutable autant de fois que nous le désirons. 
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Pour le sauvegarder sur disque nous écrivons la commande : 
SAVE "TOTO" (où 'TOTO' représente le NOM du 
PROGRAMME) 


Nous pourrons, plus tard, recharger ce programme dans la 
mémoire centrale (où le programme peut être exécuté) par une 
commande : 


LOAD "TOTO" 


Lorsque le programme a été exécuté, nous pouvons demander en 
‘Mode Direct' : 


PRINT AxB 


Des valeurs ayant été attribuées aux variables À et B, le 
calculateur répondra 20. 


Somme de deux nombres 


Sur cet exemple, nous voulons faire la somme de 2 nombres 
quelconques : nous allons, en cours d'exécution du programme, 
demander à l'opérateur les valeurs des nombres qu'il veut 
additionner. 
Lorsque l'instruction 

10 INPUT "Premier nombre? ";A 


est exécutée, le message "Premier nombre?" est affiché à 
l'écran, puis le calculateur attend que l'opérateur entre la 


valeur qu'il veut affecter à la variable A. 
L'instruction 20 s'exécute dans les mêmes conditions. 
L'instruction 

30 PRINT "Somme=";A+B 


affiche d'abord le message "'Somme=' puis la valeur de A+B 


Enfin, l'instruction 

40 GOTO 10 (ALLER EN 10) 
provoque un branchement à l'instruction 10 qui s'exécute à 
nouveau. 


Tout ce qui suit REM (REMARK) où ' (apostrophe) est considéré 
comme commentaire. 
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LOAD "EX1" = COMMANDE pour CHARGER le PROGRAMME 
OK 

LIST = COMMANDE pour LISTER le PROGRAMME 

2 REM SOMME DE 2 NOMBRES 

4 REM == 

6 L 

10 INPUT "Premier nombre? ";A "Entre la valeur de A 

20 INPUT "Deuxième nombre? ";B ‘Entre la valeur de B 

30 PRINT "Somme=" ;A+B "Imprime la valeur de A+B 
4O GOTO 10 ‘Branchement en 10 

RUN = Demande d'EXECUTION 

Premier nombre? 60 

Deuxième nombre? 40 

Somme= 100 

Premier nombre? 70 

Deuxième nombre? 50 

Sommez 120 

Premier nombre? <---------- On appuie sur BREAK ou contrôle C pour 


INTERROMPRE 1'EXECUTION 


1ENTRER A ; 10 


ENTRER B ; 20 


1 IMPRIMER A+B; 30 


Somme de 10 nombres 


(Notion de compteur de boucles) 


Pour additionner plusieurs nombres (10 par exemple), il nous 
faudrait, si nous procédions comme sur l'exercice précédent, 
écrire 10 fois la même instruction. 


Utilisons plutôt une 'Boucle' et définissons une variable 
"'Compteur' qui compte le nombre de passages dans la boucle 
à l'exécution du programme. 


Nous testons le passage à 10 du compteur pour 'sortir' de la 
boucle. 


L'instruction : 90 IF COMPTEUR=10 GOTO 200 (SI COMPTEUR =10 
ALLER EN 200) 


signifie que si la variable compteur devient égale à 10, le 
programme doit continuer en 200. 
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Si au contraire, 


le compteur n'est pas égal à 10, 


le programme 


continue à s'exécuter dans l'ordre normal des numéros d'ins- 
tructions, c'est-à-dire qu'il passe à l'instruction 100. 


Remarque : La commande 


"TRON' 


(TRACE ON), généralement utilisée 


au moment de la mise au point, ne l'a été sur cet exemple, que 


pour bien montrer comment se 


est annulée par la commande 


8 : 
30 

4O COMPTEUR=1 

50 TOTAL=0 

60 ‘! 

70 INPUT "NOMBRE? ";X 

75 TOTAL=TOTAL+X 

80 ! 

90 IF COMPTEUR=10 GOTO 200 
100 COMPTEUR=COMPTEUR+1 

110 GUTO 70 

120 

200 PRINT "TOTAL:";TOTAL 


OK 

run 

NOMBRE? 4 
NOMBRE? 6 
NOMBRE? 7 
NOMBRE? 5 
NOMBRE? 3 
NOMBRE? 5 
NOMBRE? 9 
NOMBRE? 3 
NOMBRE? 6 
NOMBRE? 5 
TOTAL= 58 


TRACE ON 


OK 
run 
[10](20](30](40J(50 [60 [70 JNOMBRE? 
(75](80J(90 J( 100]J{110](70 JNOMBRE? 6 
[751(80]190](100][110](70JNOMBRE? 7 


(751801901100 ]110](70 JNOMBRE? 6 
[751180)(90][100](110](70 JNOMBRE? 5 
(75](80]190](200]JTOTAL: 58 


OK 


‘déroule 
"TROFF' 


un programme. La "TRACE" 


"ENTRER NOMBRE X 


"SI COMPTEUR=10 ALLER EN 200 
"ALLER EN 70 


"IMPRIMER TOTAL 


4g 
s# 


COMPTEUR =4A 


LMPRINER 


4 
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Tables 


Lorsque nous avons calculé la somme de 10 nombres, nous n'avons 
pas gardé leur trace en mémoire centrale. 


Mais si nous devons effectuer sur ces nombres plusieurs trai- 
tements (autres que leur somme), il nous faut en disposer en 
mémoire centrale. Nous allons les y stocker et de préférence, 
sous forme d'une table afin de faciliter leur traitement. 


Une table est composée d'éléments auxquels on accède de la 
façon suivante : 


- pour affecter la valeur 15 au troisième élément de la table, 
nous écrivons : 


A(3)=15 
= 


- plus généralement, nous accédons aux différents éléments de 
la table À à l'aide d'un indice, I par exemple. 


TABLE A 
A(1) : 10 ' 
A(2) : 20 ï 
AC3) : 15 i 
A(4) | 12 1 
10 I=1 
O INPUT "Nombre? ";X 
25 A(I)=X 
30 IF I=5 GOTO 100 
UO I=I+1 
50 GOTO 20 


La première fois I étant égal à 1, l'instruction 25 est 
équivalente à : 


A(1)=X 
R_7/ 
Ainsi A(l) prend la valeur de X que nous avons entré dans 
l'instruction 20. 


En 40 nous faisons I=I+1. I prend donc la valeur 2 et au 
prochain passage dans la BOUCLE l'instruction 25 sera équiva- 
lente à : 


A(2)=X 
R_ 


etc. 


Nous avons ensuite calculé la somme des éléments de cette 
table. 
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SOMME DES ELEMENTS D’UNE TABLE 


œ On E 


10 I=1 
É INPUT "NOMBRE? ";A(I) 


Remplissage de la table A 

30 IF I=5 GOTO 100 

4O I=I1+1:GOTO 20 

45! 

100 I=1 " I=1 pour se positionner sur le premier 
EE SOMME=SOMME+A(I) nombre de la table 


120 IF I=5 GOTO 300 
130 I=I+1:GOTO0 110 
1507! 


G300 PRINT "SOMME=" ; SOMME 
305 PRINT "Moyenne :" ; SOMME/5 
310 STOP Fin du programme 


w TABLE @ 
run AG) 

RQ) [8 | À Luews: 
NOMBRE? DIMENSION 5 
NOMBRE AG) 


NOMBRE? 


4 

8 

7 [_e | 
NOMBRE? 6 AG [2 |] 

2 

7 


Moyenne: 5.4 


BREAK IN 310 


PRINT A(3),A(5) <----- MODE DIRECT 
À 2 

OK 

PRINT A(3)+A(5) 

9 

OK 

PRINT SOMME/5 

5.4 


OK 
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Boucle "FOR 


Le programme précédent aurait pu être écrit : 


10 FOR I=1 TO 5 (POUR 1=1 JUSQU'A 5 FAIRE) 

20 INPUT "Nombre? ",X 

25 ACI)=X 

30 NEXT I (1=1+1 puis ALLER en 20 si I<z=5) 


Cette forme d'écriture équivalente à la précédente est plus 
concise et facilite ainsi l'écriture et la lecture des 
programmes . 


Toutes les instructions comprises entre FOR et NEXT sont 
exécutées d'abord avec la valeur I=1, puis exécutées à nou- 
veau avec I=2 etc... jusqu'à ce que I ait une valeur égale à 
la limite indiquée dans l'instruction FOR. Ensuite, le pro- 
gramme continue normalement après l'instruction NEXT. 


En 'sortant' de la boucle, I a la valeur limite indiquée +1 
(6 sur l'exemple). 


Autres exemples de boucle "FOR" 


Table des carrés 


10 FOR I=1 TO 10 
20 PRINT I,(I#1) 


30 NEXT I 
RUN 

1 1 

2 4 

3 9 

4 16 
5 25 
10 100 


Table de multiplications 


10 INPUT "Quelle Table? ";X 
20 

30 FOR I=1 TO 10 

40 PRINT X;"#M;I;MENS XI 
50 NEXT I 

60! 

70 GOTO 10 


RUN 
Quelle Table? 7 


7#12=7 
7*2=14 


7#10=70 
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Tri des éléments d'une table 


Rangeons dans l'ordre croissant les éléments d'une table. 
Pour cela, nous allons utiliser l'algorithme suivant 


Nous comparons d'abord le deuxième élément de la table au 
premier : 


- s'il est plus grand, nous les laissons dans l'ordre 
- s'il est plus petit, nous les inversons afin qu'ils soient 
dans l'ordre. 


110 IF A(I+1)<A(I) THEN SWAP  A(I+1),A(I):INVERSION=1 
! ! ! 
(SI A(I+1)<A(I) ALORS ECHANGER A(I+1),A(I):INVERSION=1) 


Ensuite, nous progressons de 1 pas en comparant de la même 
façon le troisième élément au deuxième, et nous les inversons 
s'ils ne sont pas dans l'ordre. 


etc. 


Lorsque nous arrivons à la fin de la table, nous regardons 
s'il y a eu ou non inversion : 


- s'il n'y a pas eu d'inversion, c'est que tous les éléments 
sont dans l'ordre ; 

- s'il y a eu au moins une inversion, nous nous reposition- 
nons en début de table et nous recommençons. 


Après la première exploration de la table, le plus grand des 
éléments de la table est en fin de table. 


Après la deuxième exploration de la table, le plus grand des 
éléments restants est en avant-dernière position. 


etc. 


Ainsi, après plusieurs passages dans la table (N au maximum), 
tous les éléments seront dans l'ordre). 


Sur l'exemple, nous explorons systématiquement toute la table. 
En fait, nous pourrions réduire la taille de la table explorée 
de 1 à chaque passage. 


La variable inversion sert de témoin pour tester en fin de 
table si on a, au cours de l'exploration de la table, fait une 
inversion. 


Si l'instruction SWAP n'existe pas, faire : 
X=A(I):A(I)=A(I+1):A(I+1)=X 


Remarque : la méthode de tri utilisée ('ripple sort') qui a 


l'avantage d'être simple à comprendre (et à programmer) est 
rarement utilisée en pratique dès que le nombre d'éléments 

à trier devient important. C'est en effet une des plus lentes 
que l'on puisse trouver. 
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38 


ru 


NO 
NO 
NO 
NO) 
NO 


RE 


= & 0 — 


u1 


OK 


Si 


X= 
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REM TRI DES NOMBRES D’UNE TABLE 


! 
FOR 1=:1 TO 5 L ACQUISITION DES NOMBRES 
INPUT "NOMBRE? ";A(I) 
NEXT I 
Vasseur isaæestsleesdhaiasicésc té el sn nes Sante Salon NAS Cned ESS de 1 ES 
INVERSION=0 ' TRI DES NOMBRES 
! 
O FOR 1=1 TO 4 
0 IF A(I+1)<A(I) THEN SWAP A(I+1),A(I):INVERSION=1 
O NEXT I 
0 U 
O IF INVERSION=1 GOTO 80 " Y a t'il eu inversion? 
0 LU 
OR 
O PRINT "RESULTAT" : PRINT , IMPRESSION DES NOMBRES TRIES 
0 LU 
0 FOR I=1 TO 5 
0 PRINT I,A(I) 
O NEXT I 
4 4 à 
n Ç< 4,7 PA 
MBRE? 6 ? ° : 
MBRE? 8 : : 8 
MBRE? 4 9 
MBRE? 9 
MBRE? 2 
SULTAT 
2 
4 
6 
8 
9 


SWAP n'existe pas ,faire: 
AH) rad A(:) 
INVERSION = À 


ACI):ACI)=A(I+1):A([+1)2X 


FIN DE TABLE ? 


ue ovi 


Sur l'exemple précédent, nous avions prévu de trier systé- 
matiquement 5 nombres. Si nous devons trier un nombre de 
nombres non prévu à l'avance, nous écrivons 


20 INPUT "Nombre de nombres à trier ? ";NB 
30 DIM A(NB) 
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L'instruction 30 réserve la place en mémoire centrale pour 
une table de dimension NB. Il n'était pas nécessaire sur 
l'exemple précédent de réserver une place pour la table dont 
la dimension était inférieure à 10. 


Le nombre 5 qui représentait le nombre d'éléments doit être 
remplacé par NB. Ainsi, le 'remplissage' de la table devient 


FOR I=1 TO NB 
INPUT "Nombre ? ";Al(I) 
NEXT I 


Tri de noms 


Nous n'avons utilisé jusqu'à présent que des variables dites 
numériques. Or, en gestion, nous devons souvent traiter des 
informations non numériques telles que des noms de clients par 
exemple, constitués d'une succession de caractères. 


Pour distinguer les variables de ce type (chaînes de carac- 
tères), il nous suffit d'ajouter au nom de la variable le 
caractère 'S': par exemple, la table À devient la table Ag. 


La comparaison de 2 chaînes de caractères s'écrit de la même 
façon que la comparaison de 2 nombres : 
(IF AS(I+1)<AS(I) THEN ....) 


Aussi le programme de tri de noms ne diffèrera-t-il de celui 
de tri de nombres que par l'écriture des variables. 
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3e 
34 INPUT "Nombre de NOMS a trier? ";NB 
36 DIM A$(NB) 

L 


38 

4O FOR I=1 TO NB ! ACQUISITION DES NOMS 

50 INPUT "NOM? ";A$(I) 

60 NEXT I 

TO NS TE se ns Ses ss nn 
80 INVERSION=0 , TRI DES NOMS 

90 ! 


100 FOR I=1 TO NB-1 

110 IF A$(I+1)<A$(I) THEN SWAP A$(I+1),A$(1):INVERSION=1 
120 NEXT I 

130 ! 

140 IF INVERSION=1 GOTO 80 " Y a t'il eu inversion? 


170 PRINT "RESULTAT" : PRINT ! IMPRESSION DES NOMS TRIES 
180 

190 FOR I=1 TO NB 

200 PRINT I,A$(I) 

210 NEXT I 


run 
Nombre de NOMS a trier? 6 


Nom? DUPONT Jean 

Nom? CORNU Caroline 
Nom? BALU Thierry 

Nom? LANGEARD Nicole 
Nom? SALBREUX Catherine 


Nom? GOULMOT Catherine 
RESULTAT 


BALU Thierry 

CORNU Caroline 
DUPONT Jean 
GOULMOT Catherine 
LANGEARD Nicole 
SALBREUX Catherine 


OUI E & D = 
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HISTOGRAMME 


On génère à partir d'une table À ,une table HIST: 
contenant dans la case 1 le nombre de 1 de la table A 
contenant dans la case 2 le nombre de 2 de la table A 


etc... 


Table A Table HIST 


IM A(20),HIST(10) 
Remplissage de la TABLE A 
FOR I=1 TO 20 
INPUT "nombre? ";X 
IF X»>10 THEN PRINT "Erreur .Nombre trop grand":GOTO 280 
ACI)=X 


FOR I=1 TO 20 x Génération de la table HIST 
X=A(I) 
HIST(X)=HIST(X)+1 

NEXT I 

® Impression HISTOGRAMME 

FOR I=1 TO 10 
LPRINT I; 


FOR J=1 TO HIST(I) 

IF HIST(I)=0 GOTO 480 

LPRINT "#1"; | * Edition sur terminal esclave (imprimante) 
NEXT J 


LPRINT "" 


NEXT I 
## 
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Conseils pratiques (important) 


Les langages interprétés (et c'est vraisemblablement le cas 
de votre BASIC) offrent des facilités pour la mise au point 
dont il serait dommage de ne pas profiter : 


- vous pouvez interrompre votre programme en cours d'exécution 
en appuyant sur la touche 'BREAK' (ou contrôle C), puis 
visualiser les variables en MODE DIRECT afin de vous rendre 
compte de l'EVOLUTION de leurs valeurs en cours d'exécution. 
Par exemple PRINT COMPTEUR 
l'exécution du programme se poursuit en frappant la commande 
CONT (CONTINUE) 
Les valeurs des variables peuvent être modifiées en mode 
direct 
COMPTEUR=8 ‘Pour affecter la valeur 8 à COMPTEUR 
CONT "Pour CONTINUER l'exécution 
11 est permis, après une interruption, de reprendre l'exécution 
à une adresse quelconque X, en écrivant en mode direct : 
GOTO X 


Ceci évite d'avoir à exécuter à nouveau des séquences déjà 
testées. Les variables ne sont pas initialisées à zéro comme 
lors d'un RUN. 


Quasiment toutes les instructions sont exécutables en mode 
direct, y compris les instructions de manipulation de fichiers. 
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ANNEXE II 


MESSAGES D'ERREURS DU BASIC MICROSOFT 


Si le message d'erreur ne suffit pas pour détecter d'où 
provient l'erreur, on pensera à visualiser les valeurs des 
variables en ‘mode direct'. Ceci aidera bien souvent à la 
retrouver. 


Des instructions STOP judicieusement placées permettront 
également de mieux suivre l'évolution des valeurs des varia- 
bles. On pourra aussi insérer momentanément des instructions 
de visualisation des valeurs des variables (PRINT "X=";X par 
exemple). 


La trace (avec TRON), un peu trop riche en informations, ne 
sera utilisée que dans les cas particulièrement délicats. 


Message Code 
Bad filc mode 54 (mauvaise utilisation de fichier) 
On utilise PUT,GET avec un fichier 
ouvert en séquentiel où on ouvre 
un fichier dans un autre mode que 
‘R' 'O' ou 'I' 


Bad filc number 52 (mauvais numéro de fichier) 
On a tenté de référencer un numéro 
de fichier qui n'existe pas. 


Bad file name 64 (mauvais nom de fichier) 
Le nom de fichier utilisé n'est pas 
normalisé (trop de caractères par 
exemple). 


Bad record number 63 (mauvais numéro d'enregistrement) 
Dans un PUT ou un GET, on essaie 
de référencer un enregistrement de 
numéro »>32767 ou égal à 0. 


Can't continue 17 (l'exécution ne peut se poursuivre) 
On a tenté de poursuivre l'exécu- 
tion d'un programme qui : 

— à été stoppé à cause d'une erreur 

- a été modifié après une 
interruption 

- n'existe pas. 


On peut cependant continuer par 
GOTO xx 

(RUN xx initialise les variables 
à 0) 


Disk full 61 (disque plein) 
Tout l'espace disque est utilisé. 


Disk 1/0 error 57 (erreur disque) 
Une erreur disque s'est produite 
pendant une lecture/écriture. Le 
système d'exploitation ne peut 
rien faire. 
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Message Code 


Division by zero 11 (division par zéro) 


Field overflow 50 (dépassement du field) 
Une instruction FIELD a tenté 
d'allouer dans le buffer plus de 
caractères qu'il a été prévu à 
l'ouverture du fichier. 


File already exist 58 (fichier déjà existant) 
Le nom de fichier défini dans NAME 
existe déjà. 


File already open 55 (fichier déjà ouvert) 
On essaie d'ouvrir en mode 
séquentiel OUTPUT un fichier déjà 
ouvert ou un KILL tente de suppri- 
mer un fichier ouvert. 


File not found 53 (fichier non trouvé) 
Une instruction LOAD,KILL ou OPEN 
référence un fichier qui n'existe 
pas. 


For without next 26 (FOR sans NEXT) 
Un FOR sans NEXT a été détecté. 


Illegal direct 12 (illégal en mode direct) 
L'instruction frappée n'est pas 
valide en mode direct, elle ne peut 
être exécutée que précédée d'un 
numéro de ligne. 


Ex. : instruction INPUT- DEF FN 


Illegal function call 5 (appel illégal de fonction) 
Un paramètre hors du domaine 
normal a été passé à une fonction 
arithmétique ou une fonction chaîne. 


EX. : - argument négatif pour SQR 
— longueur spécifiée dans 
LEFTS8 ,MID$ ,RIGHT$ non 
comprise entre 0 et 255. 


Input past end 62 (dépassement de fin de fichier) 
Une instruction INPUT#.. est 
exécutée alors qu'il n'y a plus 
d'information à lire (fichier vide 
éventuellement). Pour éviter cette 
erreur, utiliser la détection de 
fin de fichier EOF. 


Internal error 51 (erreur interne) 
Une erreur système s'est produite. 


Line buffer overflow 23 (dépassement du buffer de ligne) 
On essaie d'entrer une ligne avec 
trop de caractères. 


Missing operand 22 (opérande manquant) 


Une expression contient un opéra- 
teur sans opérande. 
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Message 
NEXT without FOR 


No resume 


Out of data 


Out of memory 


Out of string space 


Overflow 


Redimensionned array 


Resume without error 


RETURN without GOSUB 
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19 


14 


10 


20 


(NEXT sans FOR) 
Une variable dans un NEXT ne cor- 
respond à aucun FOR. 


EX. : La ligne FOR correspondante 
a été effacée sans le NEXT associé. 


(pas d'instruction RESUME) 

Une routine de traitement d'erreur 
qui ne contient pas d'instruction 
RESUME a été appelée. 


(Data épuisés) 
Un READ est exécuté alors qu'il 
n'y a plus de DATA à lire. 


— On a oublié des DATA 
— On a oublié de programmer RESTORE 


(plus de mémoire centrale) 
Il n'y a plus assez de place en 
mémoire centrale. 


— On doit supprimer une partie du 
programme ou effacer des tableaux 
(ERASE) . 


(plus de place pour les chaînes) 
L'espace pour les chaînes n'est pas 
suffisant (voir CLEAR). 


(dépassement de capacité) 

Ex. : On a tenté de donner à une 
variable entière une valeur en 
dehors de -32768,+32767. 


(tableau redimensionné) 

Un tableau est à nouveau dimension- 
né ou une dimension de tableau est 
déclarée pour un tableau non décla- 
ré explicitement mais créé par 
BASIC (avec une dimension 10) parce 
qu'il a déjà été référencé. (par 
une instruction A(4)=X par exemple) 


(RESUME sans erreur) 

Une instruction RESUME a été exé- 
cutée alors qu'il n'y avait pas 
d'erreur. 


(RETURN sans GOSUB) 

- On est 'entré' dans un sous- 
programme par GOTO (au lieu de 
GOSUB) . 

- On est 'entré' dans un sous- 
programme par erreur parce que 
l'on a oublié STOP ou END à la 
fin de l'exécution de son pro- 
gramme (devant un sous-programme) 
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Message 


String formula too 
complexe 


String too long 
Subscript out of 


range 


Syntax error 


Type mismatch 


Undefined line 


Undefined user 
fonction 


Unpritable error 
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Code 
16 


15 


13 


18 


21 


(expression chaîne trop complexe) 
Une expression du type chaîne est 
trop longue ou trop complexe. La 
décomposer en expressions plus 
courtes. 


(chaîne trop longue) 
Une chaîne ne peut dépasser 255 ca- 
ractères. 


(référence en dehors du domaine) 

Un tableau est référencé en dehors 
de ses dimensions. Souvent, pour un 
tableau non déclaré qui a été di- 
mensionné à 10 par BASIC parce que 
référencé (par une instruction 
A(4)=X par exemple). 


(erreur de syntaxe) 

La ligne contient une erreur de 
syntaxe : 

- parenthèses non appairées 

- ponctuation incorrecte 

- instruction n'existant pas 

- etc. 


(désaccord entre numérique et 
chaîne) 

Une valeur numérique est affectée 
à une chaîne où l'inverse. 


(numéro de ligne indéfini) 
Une instruction référence une ligne 
qui n'existe pas. 


(fonction utilisateur indéfinie) 
Une fonction USR est appelée avant 
d'être définie. 


(il n'y a pas de message pour cette 
erreur). 
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ET 


I 


ANNEXE 


TABLE DES CODES ASCII 


; 
{ ! C 
' : \ 
} Û ] 
z H 7 À 
LS Lel : A 68 
x ozL ! x 8e ! 
" 6LL : M L8 : 
A 8LL ! [) 98 : 
n LiL : n S8 : 
e 9LL : L h8 : 
s SLL : S £e 
4 kil ! y 28 
b £LL ! (a 18 
d all: « d 08 
Q LL ! (a 61 
u olL ! N 1 
w 601 ! k LL 
I eoL ! 7 51 
x LOL ! 3 SL 
[ soL ! f hL 
L SOL ! se £L 
u hOL ! H CA) 
8 £or ! 9 LL 
J zoL ! 3 01 
Ê LOL ! 3 69 
P oo1 ! (4 go 
° 66 ! 9 LS 
q 86 ! € 99 
e L6 : v Sa 
: gE-, | ê LA) 


(#9) 


(37) 
CIE) 
(sa) 
(7138) 
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ANNEXE I V 


LISTE DES PROGRAMMES 


Saisie d'un tableau à 2 dimensions ...... 
Impression d'un tableau à 2 dimensions .. 


Recherche dichotomique .................. 


Recherche automatique d'échelle pour histogramme .... 


Tri par la méthode de shell ............. 


Création - consultation - modification d'un 


fichier dirt nés sun tee passe due ne see 


Ecriture - lecture d'un fichier séquentiel .......... 


Date: FiCRLEL unissent a ssians ss ce 5 a Sie 


Liste triée d'un fichier à accès direct . 
Regroupement par code .........ssssssesee 
Allocation dynamique .............s.s.s.se 
Saisie écran TRS8O0 4,4. sres ss 
Saisie écran LX500 ..........s...sssssee 


Accès indexé ...... 188 nee es eee eee 


85-86 


ASC oo ce soie eos 
ATN see s esse re cie 
AUTO ss ssuese es 
Bases............ 
Bubble........... 
CDBL. se s 80 se 


CHR$ css . 
CINT Sr sde 
CLERR ss scsss ce ces 
CLOSE. ....... sé 
COMMON ........... 
COSsssssss oise 
CSNG............. 
CDs sesssse 
CN sites sus sets 
CVS de sos eee 
Chaînes.......... 
Commandes........ 
DATA soit sac 
DEF FNssssssssse 
DEFDBL........... 
DEFINT........ sos 
DEFSNG.........., 
DEFSTRS suisses 
DELETE . eee 
DIM sis se se 
Dichotomie......, 
ELSE .. ss 
EFrc sers eee à 
EM dis ans os 
BRAS sense sene 
ER a enss 
ERRisssessinstens 
ERRORésses cesse 
EXP ses se 
Editeur.......... 
Editions......,... 
Expressions...... 
FIELD#.. ss... 
FILES csssss esse 
PTRsssss es enact 
FOR sé ses eee 
FAE(O ss sésnsescs 
FRE(X$)......... 
Fichier direct... 
Fichier séquent.. 
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ANNEXE 


INDEX ALPHABETIQUE 


Fichier virtuel.. 
Fonctions........ 
GET sieste 
GOSUB............ 
HEXS soucis 
Histogramme...... 
TES sie e s'e:s se re re 
IMP Sos ossi sie é 
INPisis se eserss 
INPUT 5e «0.0 Sssss 
INPUT. seu se 
INPUT Sense sos se 
INPUT SR uses se 
INSTR Ses s'écees 
INTésecsssssauese 
Indexé........... 
KILL. ..ssssssesee 
DERTE aviser 
LENS essieu es 
LINE INPUT....... 
LINE INPUT#...... 
LIST gsssesessse 
LLTST a séance 
LOAD su ss cos 
LOC si dsssnecee 
LOF etes 
LOGS SNS 
LPOS cu meet Le 
LPRINT........... 
SET vec sstssese 
MERGE....... soc 


MKD$......... see 
MKIS$. ose 
MKS$. ses 
MOD... soso se 
NAME res auses 
NEW............. 
NEXT see g ue 
NOT ss 5e este 018 0 6 61078 
OCTSss sde sou 
ON ERROR......... 
ON GOSUB......... 
ON GOTO.......... 
OPEN ssésess asset 


OUT se ss oorsee sa lcte 
Opérateurs....... 
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PEEK. soso es 
POKE. ..sossooose 
POS, soso 
PRINT.ssssoscoose 
PRINT USING...... 
PRINT sc coose 
PUT #. soso ososss 
RANDOMIZE........ 
READ. ....ososecse 


RESTORE.......... 
RESUME.........., 
RETURN........... 
RIGHT$..,........ 
RNDisis és 
RSET és cssstés se 
RUN 5 55e das 
Ripple........... 
SAVE..... Sesses ee 
SGN sde see 
SIN si cs etre eva re sets à 
SPACES$........... 
D PCs srerersetestere 
SR oc sos ste cie 2e 
STEP ses soie 
STR$ Sos dass ess 
STRING$.......... 
SWAP. coco ses 
SYSTEM... soc ue 
Saisie écran..... 
Shell.....s.sosse 
Shell-Metzner.... 
Sous-programmes.. 
TAB se fosse sers 
TAN ss see cire 
THEN use 
TRI oem tete 
TROFF sa see. 
TRON. so scsoses 
Tableaux......... 
VAL ose see s6 à 
Variables........ 
WAIT ss csosss sos 
MEND save 
WHILE............ 
WIDTH soso 
NRITE nes esenrente 
MRITE#........... 
XOR « saceisie sioisrsierse 
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